Чтение из файла в файл Delphi (Pascal)

[Johnlion]

Подскажите, пожалуйста, как выполнить чтение построчно из одного файла в другой?

f : Text;
Listing : Text;

Содержание f (несколько таких строк):
1) 1 2 3
2) 3 4 2
3) 2 5 4
4) 3 5 4 2

Как все эти строчки записать из f в Listing? Может есть какие-то способы?

[Serge_Bliznykov]

Если речь идёт о Delphi, то можно воспользоваться компонентом TStringList
если же выполнять задачу на "классическом" Паскале, то окрываете один файл на чтение, второй на запись и переписываете все строчки!

вот так:

var f, Listing : Text; {в Delphi нужно писать TextFile}
  s : string;
begin
  Assign(f,'Ishod.txt'); {в Delphi нужно писать AssignFile(f,'Ishod.txt');}
  Reset(f);
  Assign(Listing, 'Listing.txt'); {в Delphi нужно писать AssignFile(Listing, 'Listing.txt');}
  Rewrite(Listing);
  while not eof(f) do begin
     Readln(f, s);
     WriteLn(Listing, s);
  end;
  Close(f); {в Delphi нужно писать CloseFile(f);} 
  Close(Listing); {в Delphi нужно писать CloseFile(Listing);} 
end.

в чём проблема то?
Ничего проще данного кода для текстовых файлов и не придумаешь? Если у Вас это вызывает сложности, Вам надо тщательно разобраться с процедурами (методами) обработки текстовых файлов...