Как объединить строки из двух файлов в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

var
  File1, File2: TextFile;
  Line: string;
begin
  AssignFile(File1, 'file1.txt'); // открываем первый файл
  Reset(File1);
  AssignFile(File2, 'file2.txt'); // открываем второй файл
  Reset(File2);

  while not Eof(File1) do // читаем строки из первого файла
  begin
    ReadLn(File1, Line); // читаем строку из первого файла
    // здесь можно произвести какие-то операции с строкой, например, добавить ее в другой файл
  end;

  while not Eof(File2) do // читаем строки из второго файла
  begin
    ReadLn(File2, Line); // читаем строку из второго файла
    // здесь можно произвести какие-то операции с строкой, например, добавить ее в другой файл
  end;

  CloseFile(File1); // закрываем первый файл
  CloseFile(File2); // закрываем второй файл
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

var
  File1, File2, OutputFile: TextFile;
  Line: string;
begin
  AssignFile(File1, 'file1.txt');
  Reset(File1);
  AssignFile(File2, 'file2.txt');
  Reset(File2);
  AssignFile(OutputFile, 'output.txt'); // файл, в который будут записаны объединенные строки
  Rewrite(OutputFile);

  while not Eof(File1) do
  begin
    ReadLn(File1, Line);
    Writeln(OutputFile, Line); // записываем строки из первого файла в выходной файл
  end;

  while not Eof(File2) do
  begin
    ReadLn(File2, Line);
    Writeln(OutputFile, Line); // записываем строки из второго файла в выходной файл
  end;

  CloseFile(File1);
  CloseFile(File2);
  CloseFile(OutputFile);
end;