 |
Элементарная работа с файлами
Первое что я рассмотрю это копирование файлов:
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.
|
| Категория: Примеры | Добавил: dolphin (04.05.2009)
|
| Просмотров: 5556 | Комментарии: 1
| Рейтинг: 3.5/2 |
|
|
| Всего комментариев: 1 | |
|
|
|
|
 |
 |  |
 |  |  |
|
| Профиль |
 | |
 |
| Поиск |
| |
|
| Наша кнопка |
|
|
|
|
Статистика
|
|
Статистика материалов Файлов: 457 Форум: 1165/8118 Коментариев: 770 Новостей: 29
Статистика пользователей Всего: 379 За неделю: 0 Вчера: 0 Сегодня: 0
Всего онлайн: 1 Гостей: 1 Пользователей: 0
|
|
|
