0

Мне нужно собрать уникальные строки из двух файлов и записать их в файл Rezults.txt.

procedure TForm1.Button1Click(Sender: TObject);
var
  FName: array of string;
  F:TextFile;
  st:string;
  s:TStringList;
  I:Integer;
begin
  SetLength(FName, 2);
  FName[0] := Edit1.Text;
  FName[1] := Edit2.Text;
  s := TStringList.Create;
  s.Sorted := true;
  s.Duplicates := dupIgnore;

  for I := Low(FName) to High(FName) do
  begin
    AssignFile(F, FName[I]);
    reset(f);
    While not EOF(f) do
    begin
      readln(F,st);
      s.Add(st);
    end;
    CloseFile(f);
  end;

  s.SaveToFile('Rezults.txt');
  s.Free;
end;
7
  • @Kromster, отредактировала тему и внесла изменения. Commented 24 сент. 2018 в 17:47
  • Уточните, что теперь не работает?
    – Kromster
    Commented 24 сент. 2018 в 18:27
  • @Kromster, Теперь все работает. Commented 24 сент. 2018 в 18:41
  • Если все работает, то к чему вопрос?
    – Kromster
    Commented 25 сент. 2018 в 4:16
  • 2
    Возможный дубликат вопроса: Сравнение текстовых файлов \ DelphiXE
    – Vlad Chapl
    Commented 26 сент. 2018 в 6:21

1 ответ 1

0
var
  FName: array of string;
  ...
begin
  SetLength(FName, 2);
  FName[0] := Edit1.Text;   
  FName[1] := Edit2.Text;

  s := TStringList.Create;
  ...
  For I := Low(FName) to High(FName) do
  begin
    ...
9
  • Изменила и обновила тему но понимаю что не все. А саму константу не могу понять как назначить array[1..2] of string = ('1.txt','2.txt'); ??? Commented 24 сент. 2018 в 16:43
  • 1
    @Татьяна Не надо константы. Объявите массив как переменную.
    – user176262
    Commented 24 сент. 2018 в 16:44
  • 1
    @Татьяна Посмотрите внимательно на код в ответе. Индексация динамических массивов начинается с нуля. P.S. Включите "Range checking" в опциях компилятора и никогда не выключайте ).
    – user176262
    Commented 24 сент. 2018 в 16:51
  • 1
    @Татьяна Какое сравнение файлов? Куда что копируется? В коде вопроса нет сравнения файлов.
    – user176262
    Commented 24 сент. 2018 в 17:00
  • 1
    Ваш код собирает уникальные строки из двух файлов и записывает их в файл 'Rezults.txt' в сортированном виде. Это не совсем то, что Вы описываете.
    – user176262
    Commented 24 сент. 2018 в 17:06

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.