Стр. 303 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
303
//выход из каталога
ChDir('..');
end;
//если следующий каталог или файл не найдены
until FindNext(searchrec)<>0;
end
//если указанного каталога не существует
else
begin
filelist.Add('Каталог не найден...');
count:=0;
end;
end;
5. Для формы Form1 в инспекторе объектов создайте обработчик события
OnCreate – процедуру FormCreate.
//выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//стиль границ формы
Form1.BorderStyle:=bsDialog;
//каталог поиска
LabeledEdit1.Text:='c:\';
//начальный тип файлов для поиска
LabeledEdit2.Text:='*.jpg';
//полосы прокрутки
Memo1.ScrollBars:=ssBoth;
end;
6. Для кнопки Обзор (Button1) создайте обработчик события OnClick
процедуру Button1Click .
//выполняется при щелчке по кнопке Обзор
procedure TForm1.Button1Click(Sender: TObject);
var
//выбранная директория
dir:string;
begin
//если пользователь выбрал каталог для поиска
if SelectDirectory('Выберите каталог для поиска','',dir) then
//если каталог выбран правильно и пользователь нажал кнопку OK
if dir<>'' then
//сохранение выбранной директории
LabeledEdit1.Text:=dir;
end;