@hermina.hauck
Для объединения строк из двух файлов в 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; |
Этот код открывает два текстовых файла (file1.txt
и file2.txt
) и последовательно считывает строки из каждого файла с помощью процедуры ReadLn()
. После считывания каждой строки можно произвести необходимые операции, например, объединить строки из обоих файлов в один файл или вывести их на экран. После чтения всех строк из файлов файлы должны быть закрыты с помощью процедуры CloseFile()
.