Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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



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

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

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

End;

CloseFile(F);

……….

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

procedure TForm1.Button1Click(Sender: TObject);

Begin

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

Then begin

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

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

end;

end;

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

procedure TForm1.Button1Click(Sender: TObject);

Begin

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

then AssignFile(F, OpenDialog1. FileName);

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

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

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

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

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

Else Exit;

………………………..

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

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

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

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

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

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

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

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

procedure TForm1.Button1Click(Sender: TObject);

Begin

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)

Begin

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

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

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

End

Else Exit;

End;

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

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

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

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

unit Anketa;





Дата публикования: 2014-11-04; Прочитано: 243 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.006 с)...