Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Das * steht für alle Dateien und Ordner.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Und so?procedure TForm8.Button2Click(Sender: TObject);
begin
FindFiles(ExtractFilePath(ParamStr(0)) +('Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)))) + '\*', ListBox1.Items, );
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2007
Ich will es mal versuchen://Definition zweier eigener Datentypen, wobei der 2. in der Funktion verwendet wird.
//Dieser kann eine leere Menge, eine Menge mit einer oder beiden Optionen sein.
type
TFindFilesOption = (ffoExcludePath, ffoExcludeExt);
TFindFilesOptions = set of TFindFilesOption;
function FindFiles (
const fileExpr: String; // vollständiger Dateiname mit...