Цитата:
Сообщение от Chelios
1)Даны два файла f1 и f2. Создать файл f3, в котором вставлен текст f2 после предпоследней записи f1.
|
Если под "записью" понимается строка, то так:
Код:
VAR
S,S1:String;
f1,f2,f3:TEXT;
BEGIN
Assign(f1,'D:\t1.txt');
ReSet(f1);
Assign(f3,'D:\t3.txt');
ReWrite(f3);
Repeat
ReadLn(f1,S);
If (not EoF(f1)) then
WriteLn(f3,S)
else
begin
Assign(f2,'D:\t2.txt');
ReSet(f2);
Repeat
ReadLn(f2,S1);
WriteLn(f3,S1);
Until EoF(f2);
Close(f2);
WriteLn(f3,S);
end;
Until EoF(f1);
Close(f1);
Close(f3);
END.
Здесь файлы расположены в корневом каталоге диска D:. Поправьте, если нужно.