Элементарная работа с файлами - Примеры - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Воскресенье, 04.12.2016, 06:57 Приветствую вас Гость | Группа "Гости" 


Меню сайта

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

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

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

Опрос
Нужно ли ограничение (регистрация) при скачке файлов?
Всего ответов: 343

Главная » Статьи » 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)
Просмотров: 2377 | Комментарии: 1 | Рейтинг: 3.5/2

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


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

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

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

delfcode.ru © 2008 - 2016 Хостинг от uCoz