Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Копирование из txt.файла в др txt.файл

Автор: Гектор 16.5.2008, 11:04

Скопировать все строки текстового файла F в текстовый файл G добавляя перед каждой строкой текста её порядковый номер.
Помогите пожалуйста напишите текст программы !
Разобратьсяв теме хочется!
smile

Спасибо большое! smile

Автор: Гектор 17.5.2008, 09:05

Горю до понедельника надо помогите пожал!

Автор: Rodman 17.5.2008, 09:18

надо прога в консоли или с формой?

Автор: Данкинг 17.5.2008, 10:30

Код


procedure TForm1.ttt;
var txt,fn1,fn2:string;
fff1, ff2: TextFile;
i:integer;
begin
i:=1;
fn1='c:\f.txt';
fn2='c:\g.txt';
assignfile(fff1,fn1);
assignfile(fff2,fn2);
Reset(fff1);
rewrite(fff2);
while not eof(fff1) do
 begin
 readln(fff1,txt);
 writeln(fff2,inttostr(i)+'. '+txt);
 inc(i);
 end;
Closefile(fff1);
Closefile(fff2);
end;