обновление в блоге - Элементарная работа с файлами

[Pblog]

Элементарная работа с файлами

pblog.ruПервое что я рассмотрю это копирование файлов:
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.
Печать текста сразу на принтер:
(more…)