Interface. Чтение из текстового файла с последующим выводом в Memo

End

Begin

Begin

Чтение из текстового файла с последующим выводом в Memo

Begin

Then begin

Begin

Then begin

Begin

Запись в текстовый файл

Дано: поле Memo с введённым многострочным текстом.

Требуется записать в новый файл текст из поля Memo.

.........................

В разделе implementation описаны:

Var F: TextFile; // файловая переменная

………………………

Вариант 1. Запись в новый файл (или перезаписи)

procedure TForm1.Button1Click(Sender: TObject);

if SaveDialog1.Execute {выполняется диалог ‘Сохранить как’, задаём имя файла (FileName) }

AssignFile(F, SaveDialog1.FileName); {связываем имя файла с файловой переменной}

Rewrite(F); //файл открыт для записи

Write(F, Memo1.Text); //записывается текст из Memo1

end;

CloseFile(F);

……….

Вариант 2. Запись в новый файл методом Memo1.Lines.SaveToFile

procedure TForm1.Button1Click(Sender: TObject);

if SaveDialog1.Execute {выполняется диалог ‘Сохранить как’, задаём имя файла (FileName) }

AssignFile(F, SaveDialog1.FileName);{связываем имя файла с файловой переменной}

Memo1.Lines.SaveToFile(SaveDialog1.FileName);{запись в файл методом Lines.SaveToFile }

end;

end;

Вариант 3. Добавление записей в конец файла

procedure TForm1.Button1Click(Sender: TObject);

if OpenDialog1.Execute //выполняется диалог открыть существующий файл

then AssignFile(F, OpenDialog1. FileName);

{$I-} //отключён контроль ввода-вывода

Append(F); // открыт на запись в конец файла

{$I+} //включён контроль ввода-вывода

if IOresult = 0 //нет ошибок

Then Write(F, Memo1.Text) // запись в конец файла

Else Exit;

………………………..

Дано: текстовый файл с многострочным текстом.

Требуется: записать в поле Memo этот файл.

.........................

В разделе implementation описаны:

Var F: TextFile; // файловая переменная

var Str1:String; //строка из текстового файла

............................

procedure TForm1.Button1Click(Sender: TObject);

i f OpenDialog1.Execute //выполняется диалог открыть существующий файл

then AssignFile(F, OpenDialog1. FileName);

{$I-} //отключён контроль ввода-вывода

Reset(f2); // открыть для чтения

{$I+} //включён контроль ввода-вывода

if IOresult = 0 //нет ошибок

Then //открыть цикл While

While not Eof(F) do //пока не достигнут конец файла Eof(F)

Readln(F, str1); //считана одна строка

Memo1.Text:= Memo1.Text+ #13#10+Str1;

//добавить с новой строки (#13 + #10) в Memo считанную строку Str1

Else Exit;

End;

4.5. Пример выполнения работы

В качестве примера выполнения работы выберем из пункта 4.2. задание №1 «Анкета». На рис.4.5 показана форма для ввода данных.

Рис.4.5. Форма «Анкета»

Код модуля Anketa.pas приведён ниже. Данные из формы будут сохранены в файле Anketa.doc.

unit Anketa;

Дата добавления: 2014-11-29