Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Компонент TOpenDialog и TSaveDialog






 

TOpenDialog И TSaveDialog

 

Компоненты TOpenDialog иTSaveDialog предназначены для организации стандартных диалоговых окон.

Свойства:

 

FileName: String;

- позволяет на входе в диалоговое окно задать маршрут поиска. При выходе в свойстве содержится имя выбранного файла;

 

InitialDir: String;

- позволяет установить начальный каталог;

 

Filter: String

- позволяет установить фильтр файлов, показываемых в диалоговом окне. Представляет собой любое количество пар последовательностей символов, разделенных вертикальными линиями. В каждой паре первая часть – это текст - названии фильтра, вторая часть – сам фильтр. Например:

 

Filter: = ’Текстовые файлы (*.txt, *.doc)|*.txt, *.doc’;

 

Пример 1. Вывести содержимое текстового файла в компонент TMemo.

 

procedure TForm1.Button1Click(Sender: TObject);

var

S: String;

F: TextFile;

begin

//Настройка фильтра

OpenDialog1.Filter: = 'Текстовые файлы|*.txt, *.doc';

//Настройка папки

OpenDialog1.InitialDir: = 'D: \DEMO Delphi Examples';

//Выполнение диалога

if OpenDialog1.Execute then

begin

AssignFile(F, OpenDialog1.FileName);

Reset(F);

Memo1.Lines.Clear;

While not eof(F) do

begin

Readln(F, S);

Memo1.Lines.Add(s);

end;

CloseFile(F);

end;

end;

 

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.