Удаление дублирующихся строк в TStringList

[Alex Cones]

Собственно вот и весь сабж, в голову ничего не идет.

P.S. StringList is so looooooooong (9 мб)

[bitSoft]

a zdelai luche tzikl, tipa :

 for i:= 0 to StringList.Count - 1 do 
  for i2:= 0 to StringList2.Count -1 do
   if StringList.Strings[i] = StringList2.Strings[i2] then
   delete.....

[Shouldercannon]

Может это чем поможет

var
Text: TStringList;
begin
Text := TStringList.Create;
  Text.Duplicates := dupIgnore; {Запрещаем добавление уже существующих строк}

[zver777]

var
f1:tstringlist;
begin
f1:=tstringlist.create;
f1.Sorted:=true;
f1.Duplicates:=dupIgnore;
f1.AddStrings(ваш стриглист);
ваш стриглист.Clear;
ваш стриглист.AddStrings(f1);
f1.Free;
end;

Справляется с файлом в 500 мб за пару секунд

[Alex Cones]

zver777, спасибо, наиболее подходящий вариант.