ich komme nicht weiter damit, krieg das nicht zusammen, mag mir das jemand zeigen?
habe damit rumprobiert:
Delphi-Quellcode:
function TForm1.datei(sDrive: String): Boolean;
var
SR: TSearchRec;
begin
Result := SysUtils.FindFirst(sDrive + '\*.*', faAnyFile, SR) = 0;
SysUtils.FindClose(SR);
end;
Delphi-Quellcode:
kriege aber result nicht hier rein
AssignFile(fi, '??');