Developing.ru

Код: Выделить всё

procedure CreateImageFileList;
var Filter: TStringList;
begin
 try
  Filter:=TStringList.Create;
  Filter.Add('.bmp');
  Filter.Add('.jpg');
  Filter.Add('.gif');
 // ... продолжаешь добавлять все необходимые расширения
  Dir('C:\Documents and Settings\All Users\My picture', FileList, Filter);
 finally
  Filter.Free
 end
end;


procedure Dir(Path: string; FileList: TStrings; Filter: TStringList); 
var 
  SR: TSearchRec; 
  Ext: String; 
  i: integer; 
begin 
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then 
  begin 
    repeat 
      if (SR.Attr <> faDirectory) then 
      begin 
        Ext := UpperCase(ExtractFileExt(SR.Name)); 
        if Filter.Find(Ext, i) // в переменную i запишется индекс найденного элемента, он тебе не нужен, не обращай на него внимания
          then FileList.Add(SR.Name); 
      end; 
    until FindNext(SR) <> 0; 
    FindClose(SR); 
  end; 
end;