Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
21. Dez 2006
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 (*.*):
procedure GetFilesInDirectory(Directory: String; const Ext: String; List: TStrings);
var
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
20. Dez 2006
Danke - so würds funktionieren, aber so richtig zufrieden bin ich nicht damit.
Denn für was gib ich denn dann bei FindFirst die Endung an?
FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) = 0
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
20. Dez 2006
Hallo,
ich verwende folgende Procedure um die Dateinamen mit einer bestimmten Endung in einer Liste auflisten zu lassen:
procedure GetFilesInDirectory(Directory: String; const Mask: String; List: TStrings);
var
SR: TSearchRec;
begin