Поиск и удаление одинаковых строк в файле

Категория: Delphi/Pascal
2011-08-28 19:31:54

Указывается путь к txt-файлу. Программа ищет одинаковые строки и удаляет их. Если строка единственная, она заносится в другой текстовый файл.

code: #delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  var
  3.  FLoad, FSave: TStringList;
  4.  i: integer;
  5.  tmp: string;
  6.  begin
  7.   FLoad := TStringList.Create;
  8.   try
  9.   FSave := TStringList.Create;
  10.   try
  11.   FLoad.LoadFromFile('file1.txt');
  12.   for i := 0 to FLoad.Count - 1 do
  13.   begin
  14.     tmp := FLoad[i];
  15.     if FSave.IndexOf(tmp) = -1 then
  16.     FSave.Add(tmp);
  17.   end;
  18.   FSave.SaveToFile('file2.txt');
  19.   finally
  20.   FSave.Free;
  21.  end;
  22.  finally
  23.  FLoad.Free;
  24.  end;
  25.  end;
Поделиться:

Похожие статьи:

теги: StringList, работа с файлами, строки, файл, работа со строками, консольное приложение