копирование файлов
Добавлено: 02 дек 2009, 17:35
подскажите пожалуйсто как скопировать содержимое текстового файла (файл1) в файл 2
assign(f1, 'file1.txt');
reset(f1);
assign(f2, 'file2.txt');
rewrite(f2); или append(f2) - смотря по тому, что вы хотите, перезаписать поверх или дописать в конец.
while not eof(f1) do
begin readln(f1,s); writeln(f2,s);end;
close(f2); close(f1);
А можно обойтись функциями DOS.