Поиск файлов

[LeoN]

Я нашел много информации по этой теме но обсолютно её не понял!
Мне надо произвести поиск в папке Put при этом мне надо найти файлы типа 1...9.alb и прочитать в них 1 стоку которую надо засунуть в comboBox.Помогите мне.

[Сильванович Михаил]

const
 path = 'e:\put\';
 files = '*.alb';
 
procedure FindFiles(a: TStrings);
var
 b: TSearchRec;
begin
 a.Clear;
 if FindFirst(path+files,faAnyFile,b)=0 then
 begin
  repeat
   a.Add(b.Name);
  until FindNext(b)<>0;
 end;
end;

В итоге переменная a типа TStrings будет содержать в себе все имена найденных
файлов типа *.alb (Album)

[LeoN]

может я не понял может меня не поняли:
path = 'e:\put\'; - зачем если put это и есть путь к файлу(кроме имени самого файла)
и так как я нговиче прошу объяснить каждую строчку что и зачем(чтобы мне это использовать и в дальнейшем) ну кроме присвоения

[Сильванович Михаил]

const //объявляем константы
path = 'e:\put\';
files = '*.alb';

procedure FindFiles(a: TStrings); 
var
  b: TSearchRec; //Запись, которую используют функции FindFirst, FindNext
begin
  a.Clear; //Очищаем объект
  if FindFirst(path+files,faAnyFile,b)=0 then //проверяем, есть ли такие файлы вообще и находим первое вхождения одного из таких файлов в директории
  begin
    repeat
      a.Add(b.Name); //добавляем имена найденных файлов
    until FindNext(b)<>0; //Если FindNext возвращает 0, то все ОК, а иначе возвращает код ошибки, FindFirst аналогично
  end;
end;

[Alar]

Поиск файла

Delphi - реализация поиска. Находит все файлы, пользователь указывает папку, имя или маску для поиска.

сайт - http://www.programmersclub.ru/labfile
скачать - http://www.programmersclub.ru/files/poisc_faila.rar

[dron-s]

LeoN
а метод Итераций тебе о чём нибудь говорит?
вот, 100% рабочий код

procedure ScanFolder(const FolderName: String; Shift: String);
var
  SearchRec: TSearchRec;
begin
  FindFirst(FolderName + '\*.*', faDirectory, SearchRec);
  try
    repeat
      if (SearchRec.Attr and faDirectory = faDirectory) and
         (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        WritelnToConsole(Shift + SearchRec.Name);
        ScanFolder(IncludeTrailingPathDelimiter(FolderName) + SearchRec.Name, Shift + '  ');
      end;
    until FindNext(SearchRec) <> 0;
  finally
    SysUtils.FindClose(SearchRec);
  end;
  FindFirst(FolderName + '\*.*', faAnyFile and not faDirectory, SearchRec);
  try
    repeat
      if (SearchRec.Attr and faDirectory <> faDirectory) then
        WritelnToConsole(Shift + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  finally
    SysUtils.FindClose(SearchRec);
  end;
end;