Finde den fehler nicht

[City Light]

bin ich zu blöd oder was ,aber ich finde den nicht... :wall:

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

[CalganX]

Delphi-Quellcode:

if Pos(UpperCase(ExtractFileExt(SR.Name)), Extensions) > 0 then

Da fehlt for dem > eine )...

Chris

[City Light]

nein auch nicht jeden fals bei mir nicht ,hab es jetzt so gemacht ,und es geht jetzt

Delphi-Quellcode:

if Pos(UpperCase(ExtractFileExt(SR.Name)), Extensions) > 0 then
        FileList.Append(Path + SR.Name);

[Christian Seehase]

Moin Tino,

diese Abfrage ist falsch.

Delphi-Quellcode:

if SR.Name[1] <> '.' then ...

Du musst explicit auf <> '.' und <> '..' prüfen, denn es ist durchaus zulässig, dass Verzeichnis- / Dateinamen mit einem Punkt beginnen.

Eventuell solltest Du statt UpperCase lieber AnsiUpperCase verwenden, damit auch Umlaute korrekt umgewandelt werden.

[City Light]

Danke für den Tipp :)