Четверг, 28.03.2024, 16:20 Приветствую вас Гость | Группа "Гости" 
Меню сайта

Категории раздела
Вирусология [40]
Статьи о вирусах
Системные [1]
Работа с системой
Примеры [45]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Шуточные программы [5]
Пишем шуточные программки
Остальное [6]
Всё что не вошло

Популярные статьи

Недавние темы

Опрос
На каком языке кодите?

Всего ответов: 778

Главная » Статьи » Delphi » Примеры

Элементарная работа с файлами
Первое что я рассмотрю это копирование файлов:
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)
Просмотров: 5459 | Комментарии: 1 | Рейтинг: 3.5/2

Всего комментариев: 1
avatar
1
Да еслибы сдесь было типа работа с атрибутами файла было бы зрелищно!
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка
Вирусология, взгляд из Delphi

Статистика
Top.Mail.Ru Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 455
Форум: 1165/8116
Коментариев: 768
Новостей: 29

Статистика пользователей
Всего: 526
За неделю: 3
Вчера: 0
Сегодня: 0
Всего онлайн: 1
Гостей: 1
Пользователей: 0

delphicode.ru © 2008 - 2024 Хостинг от uCoz