TOpenDialog и tSaveDialog – диалоги открытия и сохранения файлов (страница dialogs )

Свойство FileName:String содержит маршрут поиска и выбранный файл при успешном завершении диалога. Программа может использовать это свойство для доступа к файлу с целью читать из него данные (TOpenDialog) или записывать в него (TSaveDialog). Пользователь может ввести произвольное имя и, следовательно, указать несуществующий файл. Для записи это не имеет значения, но при чтении отсутствие файла может привести к аварийному завершению программы. Чтобы избежать этого, можно использовать механизм обработки исключительных ситуаций или можно проверить существование файла глобальной функцией FileExists.

Например, создадим простую программу для просмотра содержимого текстового файла. На форму поместим компонент TOpenDialog, а также кнопку TButton и редактор TMemo. Событие OnClick – щелчка по кнопке будет сигналом о необходимости загрузить в редактор новый файл.

Создадим обработчик события OnClick:

Procedure TForm1.Button1Click(Sender: TObject);

Var

F:TextFile; s:string;

Begin

// диалог на отбор текстовых файлов и анализ результатов

If OpenDialog1.Execute and FileExists(OpenDialog1. FileName)

then

// результат – успешный, открываем файл

Begin

AssignFile(F, OpenDialog1. FileName);

Reset (F);

Memo1.Lines.Clear; // очищаем Memo1

While not(eof(F)) do

begin

Readln(F,s);

Memo1.Lines.Add(s); // заполняем Memo1

end;

Closefile(F);

End;

end;

Формы.

Самый важный визуальный компонент – это форма. В каждом проекте Delphi предусмотрена хотя бы одна форма, которая определяет главное окно приложения («форма» и «окно» синонимы). В иерархии визуальных компонентов между классами TWinControl и TForm есть еще 2 компонента класса: TScrollingWinControl и TCustomForm.

Первый из них называют оконный элемент управления с полосами прокрутки. Они появляются тогда, когда в клиентской области не помещаются дочерние компоненты.

Второй класс TCustomForm – это готовая форма. Инициализация форм приложения может осуществляться разными способами. Если форма добавляется к приложению во время визуального проектирования, то в форме проекта записывается вызов метода Application.CreateForm. При этом форма будет подчинена объекту Application, он самый главный в приложении. Первая включенная форма объявляется главной.