![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
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; Прочитано: 262 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!