Problem mit FindFirst und Dateiendungen

[Helmi]

Hallo,

danke für die Tips!

Ich hab mir jetzt aber fongendes überlegt:
Wenn ich sowieso ein zweites mal prüfen muss ob die Endung pass, dann kann ich ja bei FindFirst alle Dateien suchen lassen (*.*):

Delphi-Quellcode:

procedure GetFilesInDirectory(Directory: String; const Ext: String; List: TStrings);
var
  SR: TSearchRec;

begin
  List.BeginUpdate;

  try
    List.Clear;

    If Directory <> '' then
      begin
        Directory := IncludeTrailingPathDelimiter(Directory);
        If FindFirst(Directory + '*.*', faAnyFile and (not faDirectory), SR) = 0 then //hier
          try
            repeat
              If UpperCase(ExtractFileExt(SR.Name))= UpperCase(Ext) then
                List.Add(Directory + SR.Name);
            until FindNext(SR) <> 0;
          finally
            FindClose(SR);
          end;
      end;
  finally
    List.EndUpdate;
  end;
end;

So brauch ich mir die Endung nicht speichern.
einzigste Änderung im normalen Code: anstatt "*.msk*, muss ich jetzt ".msk" schreiben