«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

 омпонент OpenDialog

OpenDialog Ц визуальный компонент. ќн используетс€, чтобы позволить пользователю выбирать один или более файлов, дл€ открыти€. ќн может быть определен, перемещением значка Open Dialog с вкладки Dialogs, или определ€€ переменную TOpenDialog.

ќсновные свойства:

Ц Title Ц используетс€ дл€ установки заголовка диалога;

Ц FileName Ц выдает им€ файла дл€ открыти€, заданное по умолчанию (иначе, поле имени файла будет пробелом). ѕри возвращении из диалога, если пользователь нажал, OK, это свойство будет содержать (первое) выбранное им€ файла, включа€ его полный путь;

Ц Filter Ц позвол€ет отображать и выбирать только некоторые типы файлов. “екст фильтра отображаетс€ в ниспадающем поле, чуть ниже пол€ имени файла.

—ледующий пример выбирает только текстовые файлы:

openDialog.Filter := 'Text files only|*.txt';

–аскрывающийс€ список показывает текст, наход€щийс€ перед разделителем |. ѕосле разделител€ можно определить маску, котора€ выбирает файлы:

openDialog.Filter := 'Text and Word files only|*.txt;*.doc';

Ц FilterIndex Ц определ€ет, какой фильтр ниспадающего пол€ будет отображен первым;

Ц InitialDir Ц устанавливает начальный каталог в диалоге;

Ц Options Ц это набор TOpenOptions флажков. ќни €вл€ютс€ исчерпывающими.  лючевые значени€:

Ц ofReadOnly Ц открывает файл доступный только дл€ чтени€;

Ц ofFileMustExist Ц может быть открыт только существующий файл;

Ц ofAllowMultiSelect Ц пользователь может выбрать 2 или больше файлов.

ƒл€ отображени€ диалога вызываетс€ метод TOpenDialog:

if openDialog.Execute then ...

Execute возвратит истину, если пользователь выбрал файл и нажал OK. “еперь вы можете использовать выбранный файл:

ѕ–»ћ≈–: ¬ывод содержимого файла в компонент Memo1 через OpenDialog1

if OpenDialog1.Execute then

begin

AssignFile(f,OpenDialog1.FileName);

reset(f);

Memo2.Text:='';

while not eof(f) do

begin

Read(f,buf);

Memo2.Text:=Memo2.Text+buf;

end;

closefile(f);

end;


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

ќценка и выбор CASE-средств  ратка€ истори€ UML  онцептуальна€ модель UML ƒиаграммы последовательности   ооперативные диаграммы   омпонент SaveDialog ѕримеры исключений с Try ... Finally ... ѕример исключени€ с Try ... Except ... ”правл€ющие структуры €зыка Delphi Ѕазы данных в Delphi 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом