Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
AW: FindFirstFileEx liefert Error Falscher Parameter?
7. Sep 2022, 20:44
Falls ich mich jetzt nicht verschrieben hab
Delphi-Quellcode:
uses
StrUtils, IOUtils;
procedure TForm11.Button1Click(Sender: TObject);
var
List: TArray<string>;
begin
// GetAllFiles -> TDirectory.GetDirectories
// GetAllFolders -> TDirectory.GetFiles
for var Path in TDirectory.GetDirectories(BasePath.Text, TSearchOption.soAllDirectories {oder .soTopDirectoryOnly},
function(const Path: string; const SearchRec: TSearchRec): Boolean
begin
Result := ContainsText(TPath.Combine(Path, SearchRec.Name), BaseFolder.Text);
end) do
begin
// AddStrArr(List, S); -> List := List + [S]; (schade, dass List += S; "noch" nicht geht)
List := List + TDirectory.GetFiles(Path, Filter.Text, TSearchOption.soTopDirectoryOnly);
end;
ListBox1.Items.Clear;
ListBox1.Items.AddStrings(List);
end;
wobei
Delphi-Quellcode:
begin
List := TDirectory.GetFiles(BasePath.Text, Filter.Text, TSearchOption.soAllDirectories,
function(const Path: string; const SearchRec: TSearchRec): Boolean
begin
Result := ContainsText(Path, BaseFolder.Text);
end);
ListBox1.Items.Clear;
ListBox1.Items.AddStrings(List);
end;
$2B or not $2B
Geändert von himitsu ( 8. Sep 2022 um 00:10 Uhr)
|
|
Zitat
|