Dateiendung überprüfen

[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