Первое что я рассмотрю это копирование файлов:
procedure TForm1.Button1Click(Sender:
TObject);
begin
CopyFile('Откуда\Имя файла','Куда\Новое имя
файла',true)
// если файл с таким же именем уже есть то true - если заменять
или false если оставить прошлую копию файла
end;
Запись в файл:
program CrtApp;
var
outfile:
TextFile;
begin
AssignFile(outfile, 'c:\outfile.txt'); // связываем
переменную с файла в который будем
писать
Rewrite(outfile);
writeln(outfile, 'Привет МИР!'); // Запись в файл
'c:\outfile.txt' легендарного текста
CloseFile(outfile); // обязательно
закрываем файл
end.
Печать текста сразу на принтер:
program CrtApp;
var
outfile:
TextFile;
begin
AssignFile(outfile, 'LTP1'); //
принтер
Rewrite(outfile);
writeln(outfile, 'Привет МИР!'); // печать
текста
CloseFile(outfile); // обязательно закрываем файл
end.
Чтение, точнее копирование текста из одного файла в другой:
Program ReadInput;
var
infile, outfile: text;
num_lines, x:
integer;
line: string;
begin
assign(infile,
'C:\INFILE.TXT');
assign(outfile, 'C:\OUTFILE.TXT');
reset(infile);
{перемещаем указатель}
{в начало файла.}
rewrite(outfile); {очищаем
содержимое файла}
readln(infile, num_lines);
for x:= 1 to num_lines
do
begin
readln(infile, line);
writeln(outfile,
line);
end;
close(infile);
close(outfile);
end.
Текст файла Infile.txt должен в первой строке иметь число которое указывает
сколько строк надо прочитать из файла начиная со второй строки. Например:
2
Привет МИР!
Моя программа работает, это чудо!