копирование файлов
подскажите пожалуйсто как скопировать содержимое текстового файла (файл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.
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.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.