Элементарная Работа С Файлами

[Sascha]

Первое что я рассмотрю это копирование файлов:

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.