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

Информатика. Программирование в Delphi
192
5. В разделе объявления глобальных переменных добавим следующие пе-
ременные:
//динамический массив
//каталог + имя файла
ms:array of string;
//длина массива ms
ms_count:word;
//номер текущего элемента массива
curr:integer;
6. В разделе implementation подключим модуль jpeg:
//подключение модуля jpeg
//для просмотра jpg файлов
uses jpeg;
7. Далее в разделе implementation опишем процедуру GetPicturePath.
//процедура формирует массив имен файлов
//в указанном каталоге, если он существует, а также
//открывает первую картинку
//и делает доступными кнопки
//назад «<<» и вперед «>>»
procedure GetPicturePath(Path:string);
var
//переменная для поиска файлов в указанном каталоге
searhrec:TSearchRec;
//тип файла
amask:string[5];
//результат поиска: 0 – файл найден, иначе – не найден
r:integer;
begin
//начальное значение длины массива имен файлов
ms_count:=0;
//установка длины динамического массива
SetLength(ms,ms_count);
//если выбран тип файла bmp
if Form1.RadioGroup1.ItemIndex=0 then
amask:='*.bmp'
//если выбран тип файла jpg
else
amask:='*.jpg';
//если указанный путь существует