КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Компонент TOpenDialog и TSaveDialog
ОРГАНИЗАЦИЯ СТАНДАРТНЫХ ДИАЛОГОВ Windows поддерживает диалог с помощью типовых диалоговых окон (выбор файла, шрифта, цвета и т.д.). В Delphi реализованы классы и объекты, которые позволяют создавать и использовать такие окна. Работа со стандартными диалоговыми окнами осуществляется в следующей последовательности: 1) необходимо разместить на форме соответствующую диалоговую компоненту и настроить ее свойства; 2) вызов в обработчике события стандартного диалога осуществляется с помощью метода Execute. Этот метод представляет собой функцию, которая отображает на экране диалоговое окно и в конце диалога возвращает результат true или false. 3) результаты выполнения диалога используются в дальнейшем в программе с помощью свойств диалогового окна.
Компоненты 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;
Дата добавления: 2014-01-07; Просмотров: 686; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |