Hallo
Ich machs "meisten" so...
Delphi-Quellcode:
// Liest das Übergebene "Dir" ein
procedure TForm1.ReadDir(const Dir: String);
var ExtMask: TDirectory.TFilterPredicate;
SOpt: TSearchOption;
begin
// ----------------------------------------------------------------------
ExtMask:= function(const Pfad: String; const SR: TSearchRec): Boolean
begin
Result:= (ExtractFileExt(SR.Name) = '.fus');
end;
// ----------------------------------------------------------------------
if CbRecursive.Checked then // Ist ein CheckBox
SOpt:= TSearchOption.soAllDirectories
else
SOpt:= TSearchOption.soTopDirectoryOnly;
FArr:= TDirectory.GetFiles(Dir, '*.*', SOpt, ExtMask); // Ist dein TStringDynArray
end;