Реферат: Работа с файлам в Дельфи

procedure TForm1.Button1Click(Sender: TObject);

var

F : TextFile;

FileName : String;

i : Integer;

begin

FileName := InputBox("Имя файла", "Введите имя файла", "default.txt");

AssignFile(F, FileName);

Rewrite(F);

for i := 0 to Memo1.Lines.Count do

WriteLn(F, Memo1.Lines[i]);

CloseFile(F);

end;

Это кнопка будет сохранять текстовый файл. Итак, в разделе var я обьявил три локальные переменные: F типа TextFile это и есть файловая переменная для текстовых файлов; FileName типа String будет служить для хранения имени файла; И i типа Integer - для циклов. В первой строчке я запрашиваю у пользователя имя файла. Во второй я связываю файловую переменную с физическим файлом на диске. Строчка Rewrite(F) создает новый файл или перезаписывает существующий. ЧТо бы данные не заменялись а добавлялись в конец файла эту строчку нужно заменить на Append(F). Далее идет цикл с 0 до количества всех строк Memo1. В цикле содержимое все строк Memo1 по порядку записывается в файл. Обратите внимание, что я использую WriteLn для записи новой строчки. Если бы я использовал Write, то все строчки Memo1 в файле превратились в одну.

Обработчик второй кнопки должен выглядеть примерно так:

procedure TForm1.Button2Click(Sender: TObject);

var

F : TextFile;

FileName, tmp : String;

begin

FileName := InputBox("Имя файла", "Введите имя файла", "default.txt");

AssignFile(F, FileName);

Reset(F);

while not EOF(f) do

begin

ReadLn(F, tmp);

Memo1.Lines.Add(tmp);

end;

CloseFile(F);