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

Информатика. Программирование в Delphi
208
//добавление имени файла в список
Form1.ListBox1.Items.Add(searhrec.Name);
//поиск следующего файла
r:=FindNext(searhrec);
end;
//заканчиваем поиск
FindClose(searhrec);
//поиск первого файла в указанном каталоге
r:=FindFirst(path+'*.mp3',faAnyFile,searhrec);
//пока r равна нулю
while r=0 do
begin
//длина динамического массива
inc(ms_count);
//установка длины динамического массива
SetLength(ms,ms_count);
//сохранение каталога и имени найденного файла
ms[ms_count-1]:=Path+searhrec.Name;
//добавление имени файла в список
Form1.ListBox1.Items.Add(searhrec.Name);
//поиск следующего файла
r:=FindNext(searhrec);
end;
//заканчиваем поиск
FindClose(searhrec);
end;
//если в указанном каталоге существует хотя бы один файл
if ms_count<>0 then
begin
//текущий элемент динамического массива
curr:=0;
//выделение в списке текущего элемента
Form1.ListBox1.ItemIndex:=curr;
//имя проигрываемого файла
Form1.MediaPlayer1.FileName:=ms[curr];
//открытие файла
Form1.MediaPlayer1.Open;
//заголовок формы
Form1.Caption:=ExtractFileName(ms[curr]);
end
//если файлы не найдены
else
begin
//очистка списка