Dateiendung überprüfen

[Doener]

Hallo,
wie kann ich einen Ordner nach Dateien mit der Endung .xyz durchsuchen und dann die Dateinamen in eine Listbox adden?
Ok das hinzufügen geht einfach, aber das suchen....
thx 4 help
Julian

[MrKnogge]

Delphi-Quellcode:

procedure GetYourFiles(ADirectory: string; AList: TStrings);
const
  AMask = '*.xyz';
var
  SR: TSearchRec;
begin
  if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then
  begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then AList.Add(ADirectory+SR.Name)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;
end;

sollte funktionieren.

gruss

[Mirilin]

Klick


mfg Tobias