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

Информатика. Программирование в Delphi
207
4. В разделе объявления глобальных переменных объявим следующие пе-
ременные:
//динамический массив
//каталог + имя файла
ms:array of string;
//длина массива ms
ms_count:word;
//номер текущего элемента массива
curr:integer;
//часы, минуты и секунды
hour,min,sec:integer;
5. В разделе implementation опишем процедуру GetFilePath. Оформим ее
следующим образом.
//процедура формирует массив имен файлов
//в указанном каталоге, если он существует
procedure GetFilePath(Path:string);
var
//переменная для поиска файлов в указанном каталоге
searhrec:TSearchRec;
//результат поиска: 0 - файл найден, иначе - не найден
r:integer;
begin
//начальное значение длины массива имен файлов
ms_count:=0;
//установка длины динамического массива
SetLength(ms,ms_count);
//если указанный путь существует, т.е. он полностью введен в поле
//Edit1
if DirectoryExists(Path) then
begin
//поиск первого файла в указанном каталоге
r:=FindFirst(path+'*.wav',faAnyFile,searhrec);
//пока r равна нулю
while r=0 do
begin
//длина динамического массива
inc(ms_count);
//установка длины динамического массива
SetLength(ms,ms_count);
//сохранение каталога и имени найденного файла
ms[ms_count-1]:=Path+searhrec.Name;