Then begin

Writeln(f,st); //записываем строку в файл

Edit2.Clear; //очищаем окно ввода

Edit2.SetFocus; //курсор помещаем в окно для ввода текста

End

Else begin

CloseFile(f);

Label1.Caption:='Файл создан.';

end;

end;

Примерное окно приложения

Просмотрите каталог и убедитесь, что файл создан.

Текстовые файлы можно просматривать, редактировать и т.д.

Для вывода на экран содержимого файла следует использовать окно Memo, которое позволяет выводить несколько строк текста.

Во время выполнения приложения можно заносить текст в окно Memo с помощью одного из следующих методов:

Memo1.Lines.Add(<строка>);

Memo1.Lines.Append(<строка>);

Перед добавлением в окно Memo данных необходимо проводить преобразование типов.

Пример 4: Составим программу, которая выводит текстовый файл на экран.

Var Filename: String; //строка для имени файла

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

procedure TForm1.Button1Click(Sender: TObject);

var st: string;

Begin

Filename:=Edit1.Text;

AssignFile(f,FileName);

Reset(f);

While not Eof(f) do begin

Readln(f,st);

Memo1.Lines.Append(st);

end;

CloseFile(f);

end;

Примерное окно приложения