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

Информатика. Программирование в Delphi
304
7. Для кнопки Поиск (Button2) создайте обработчик события OnClick
процедуру Button2Click.
//выполняется при нажатии по кнопке Поиск
procedure TForm1.Button2Click(Sender: TObject);
var
//список найденных файлов
filelist:TStringList;
n:integer;
begin
//создание списка
filelist:=TStringList.Create;
//добавление строки
Memo1.Lines.Add('Идет поиск, подождите...');
//поиск файлов
find(LabeledEdit1.Text,LabeledEdit2.Text,filelist,n);
//вывод списка в компонент Memo1
Memo1.Lines:=filelist;
//вывод информации о найденных файлах
Label1.Caption:='Найден(о) '+IntToStr(n)+' файл(а,ов)';
end;
8. Запустите приложение рис. 25.3.
Рис. 25.3