Hallo Zusammen,
vielen Dank für die zahlreiche Unterstützung!!!
So klappt es jetzt:
Delphi-Quellcode:
function listFiles(Pfad, FileName: string): TRows;
var I: integer;
begin
filename:='*'+fileName+'*';
setlength(Result,1,0);
for fileName in TDirectory.GetFiles(Pfad, FileName, TSearchOption.soAllDirectories) do begin
SetLength(Result,2,Length(Result[0])+1);
Result[0,Length(Result[0])-1]:=FileName;
end;
end;
Ich hätte erwähnen sollen, dass TRows ein Array of Array of string ist.
@Sir Rufo
Ich hatte die eckigen Klammern vergessen, wodurch die Fehlermeldung ausgelöst wurde.
Vielen Dank nochmal
Patrick