bin ich zu blöd oder was ,aber ich finde den nicht...
Delphi-Quellcode:
procedure GetFileList(const Path: String; const Extensions: String; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
try
repeat
if (SR.Attr and faDirectory) > 0 then
begin
if SR.Name[1] <> '.' then
GetFileList(Path + SR.Name + '\', Extensions, FileList);
end
else
if Pos(UpperCase(ExtractFileExt(SR.Name)), Extensions) > 0 then
FileList.Add(Path + SR.Name);
until
FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
[Fehler] Unit1.pas(41): Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden