Forum: Object-Pascal / Delphi-Language
by 1ermehr,
14. Mai 2008
Langsam wirds peinlich für mich... naja ist ja auch schon spät :drunken:
repeat
if (DirectoryExists({path+'\'vergessen}fts.Name) and not ((fts.Name = '.') or (fts.Name = '..'))) then
begin
Ich hab schon mal erwähnt das ich gerne lesen könnte oder?
Denn wenn ichs könnte würd ich hier nicht so fragen stellen
Forum: Object-Pascal / Delphi-Language
by 1ermehr,
14. Mai 2008
Ich versthehe einfach nicht warum die rekursion hier nicht funktioniert sie müsste an der richtigen stelle
sein aber wird stumpf nicht ausgeführt...
procedure findf(path: string);
var
fts: TSearchRec;
fcount, dcount: integer;
buf: string;
begin
Forum: Object-Pascal / Delphi-Language
by 1ermehr,
2. Mai 2008
Kein wunder dass was ausgelassen wird wenn man alles doppelt macht, machmal
wünsche ich mir ich könnte lesen :stupid:
procedure TForm1.Button1Click(Sender: TObject);
var
fts: TSearchRec;
fcount, dcount: integer;
begin
fcount := 0;
Forum: Object-Pascal / Delphi-Language
by 1ermehr,
2. Mai 2008
Hab den code mal direkt kopiert und es passt immer noch nicht...
Es werden willkührlich verzeichnisse ausgelassen
Forum: Object-Pascal / Delphi-Language
by 1ermehr,
26. Mär 2008
Wiese kann ich mit der FindFirst, FindNext methode nur dateien suchen obwohl es extra einen parameter faDirectory in der FindFirst gibt?
Problemcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fts: TSearchRec;
fcount, dcount: integer;
begin
fcount := 0;
dcount := 0;