29.03.2008, 09:51
|
|
Познающий
Регистрация: 06.09.2006
Сообщений: 94
С нами:
10356548
Репутация:
15
|
|
De-visible
Спасибо, код
procedure poisk;
var SL,Ish: TStringList;
i:integer;
begin
ISH:=TstringList.Create;
ISH.LoadFromFile('d1.txt');
SL := TStringList.Create;
with SL do
try
Sorted := True;
For i:=0 to ISH.Count-1 Do Begin
SL.Add(ISH[i]);
end;
Duplicates := dupIgnore;
sl.SaveToFile('result.txt');
finally
Free;
end;
end;
работает но есть одно но. Моя прога зачастую ищет и записывает в файл сочетания строк. Нпример:
Строка имени
Стрка адресса
Страка имени 2
Строка адресса 2
итп,
а когда сортируешь через этот код (стрнг листовский) то он все перемешивает, т.е. идут уже не пары а все в каше, сначала имена потом адресса, а хотелось бы что бы все было как найдено только без повторов.
|
|
|