Оптимизация кода: Удаление Дубликатов

[UKRtortik]

var
MyStringList: TStringList;
i, j, c: integer;
begin
c:=0;
OpenDialog1.execute;
if OpenDialog1.filename<>'' then
begin
MyStringList:=TStringList.Create;
MyStringList.LoadFromFile(OpenDialog1.filename);
for i:=MyStringList.Count-1 downto 0 do
for j:=MyStringList.Count-1 downto i+1 do
if MyStringList[i]=MyStringList[j] then
begin
MyStringList.delete(j);
inc(c);
end;
MyStringList.SaveToFile(OpenDialog1.filename);
MyStringList.Free;
ShowMessage ('Удалено: '+IntToStr(c));
end;
end;

Хотелось бы немного оптимизировать данный код, чтобы быстрее удалял дубликаты для работы с большими файлами.

[BDA]

var
  ts: tstringlist;
begin
  ts := tstringlist.Create;
  ts.Sorted := true;
  ts.Duplicates := dupIgnore;
  ts.LoadFromFile('1.txt');
  ts.SaveToFile('1.txt');
  ts.Free;
end;

Порядок строк изменится.

[Аватар]

А сортировку результирующего файла изменить можно? Если можно, то

  MyStringList:=TStringList.Create;
  MyStringList.Sorted:=True;
  MyStringList.Duplicates:=dupIgnore;
  MyStringList.LoadFromFile(OpenDialog1.filename);
  MyStringList.SaveToFile(OpenDialog1.filename);
  MyStringList.Free;

BDA

Хоть переменные разные

[UKRtortik]

Сообщение от Аватар

А сортировку результирующего файла изменить можно? Если можно, то

  MyStringList:=TStringList.Create;
  MyStringList.Sorted:=True;
  MyStringList.Duplicates:=dupIgnore;
  MyStringList.LoadFromFile(OpenDialog1.filename);
  MyStringList.SaveToFile(OpenDialog1.filename);
  MyStringList.Free;

Хоть переменные разные

А как вывести кол-во удаленных дубликатов?

[Кольша]

var
  ts: tstringlist;
c:integer;
begin
  ts := tstringlist.Create;
  ts.Sorted := true;
  c:=ts.count;
  ts.Duplicates := dupIgnore;
  ts.LoadFromFile('1.txt');
  ts.SaveToFile('1.txt');
c:=c-ts.count;
  ts.Free;
showmessage('dups:'+inttostr(c));
end;

[Аватар]

Сообщение от UKRtortik

А как вывести кол-во удаленных дубликатов?

Данным кодом никак

[UKRtortik]

Сообщение от Кольша

var
  ts: tstringlist;
c:integer;
begin
  ts := tstringlist.Create;
  ts.Sorted := true;
  c:=ts.count;
  ts.Duplicates := dupIgnore;
  ts.LoadFromFile('1.txt');
  ts.SaveToFile('1.txt');
c:=c-ts.count;
  ts.Free;
showmessage('dups:'+inttostr(c));
end;

тАк выводит кол-во оставшихся строк в файле

[BDA]

var
  ts: tstringlist;
  a: integer;
begin
  ts := tstringlist.Create;
  ts.LoadFromFile('1.txt');
  a := ts.Count;
  ts.Sorted := true;
  ts.Duplicates := dupIgnore;
  ts.Text := ts.Text;
  ts.SaveToFile('1.txt');
  showmessage(IntToStr(a - ts.Count));
  ts.Free;
end;

Аватар, ага, коды "кардинально" различаются

Как называют переменные программисты:
Новичок: f: boolean;
Любитель: flag: boolean;
Любитель, мнящий себя профессионалом: EndFileFlag: boolean;
Профессионал: f: boolean;

[eval]

Кольша кол-во отрицательное

[UKRtortik]

Сообщение от BDA

var
  ts: tstringlist;
  a: integer;
begin
  ts := tstringlist.Create;
  ts.LoadFromFile('1.txt');
  a := ts.Count;
  ts.Sorted := true;
  ts.Duplicates := dupIgnore;
  ts.Text := ts.Text;
  ts.SaveToFile('1.txt');
  showmessage(IntToStr(a - ts.Count));
  ts.Free;
end;

Аватар, ага, коды "кардинально" различаются

Спасибо! То что нужно!