Информатика. Программирование в Delphi
193
if DirectoryExists(Path) then
begin
//поиск первого файла в указанном каталоге
r:=FindFirst(path+amask,faAnyFile,searhrec);
//пока r равна нулю
while r=0 do
begin
//длина динамического массива
inc(ms_count);
//установка длины динамического массива
SetLength(ms,ms_count);
//сохранение каталога и имени найденного файла
ms[ms_count-1]:=Path+searhrec.Name;
//поиск следующего файла
r:=FindNext(searhrec);
end;
//заканчиваем поиск
FindClose(searhrec);
end;
//если в указанном каталоге существует хотя бы один файл
if ms_count<>0 then
begin
//текущий элемент динамического массива
curr:=0;
//кнопки доступны
Form1.Button1.Enabled:=true;
Form1.Button2.Enabled:=true;
//загрузка картинки из файла
Form1.Image1.Picture.LoadFromFile(ms[curr]);
//вывод имени картинки
Form1.Caption:='Просмотр иллюстраций'+#32+
'"'+ExtractFileName(ms[curr]) +'"';
end
//если файлы не найдены
else
begin
//кнопки недоступны
Form1.Button1.Enabled:=false;
Form1.Button2.Enabled:=false;
//удаление текущей картинки
Form1.Image1.Picture:=nil;
//длина дин. массива
ms_count:=0;
//установка длины динамического массива