| Меню сайта |
 |
|
 |
| Категории раздела |
|
|
|
| Помощь проекту |
|
 R106276538945
 Z160640024212
Яндекс деньги
 410011190732605
|
|
| Недавние темы |
|
|
|
| Опрос |
|
|
|
|
 |
 |
 |
 |
Элементарная работа с файлами
Первое что я рассмотрю это копирование файлов:
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)
|
| Просмотров: 2763 | Комментарии: 1 | Рейтинг: 3.5/2 |
| Всего комментариев: 1 |
|
|
|
|
|
|
 |
 |
 |
 |
 |
 |
|
| Профиль |
|
|
|
| Поиск |
|
|
|
| Наша кнопка |
|
|
|
| Статистика |
|
 
Статистика материалов
Файлов: 365
Форум: 1134/8049
Коментариев: 796
Новостей: 27
Статистика пользователей
Всего: 382
За неделю: 0
Вчера: 0
Сегодня: 0
Всего онлайн: 2
Гостей: 2
Пользователей: 0
|
|
|
0
