@Mathias:
wenn das doch geht, dann tut es mir sehr leid.
Es ist nur so, das es früher bei mir zu Fehlermeldungen geführt hat. (Delphi 4 Standard)
Gut, dann geht es auch noch mal nach dir:
Delphi-Quellcode:
Function FileCount(Ordner: String): Integer;
Var Files: TSearchRec;
Count, Code: Integer;
Begin
If (Ordner > '') and (Ordner[Length(Ordner)] <> '\') Then Ordner := Ordner + '\';
Count := 0;
Code := FindFirst(Ordner + '*.*', faAnyFile, Files) = 0 Then Begin
While Code = 0 do Begin
If (Files.Attr and faDirectory) <> faDirectory Then Inc(Count)
Else If (Files.Name <> '.') and (Files.Name <> '..') Then
Inc(Count, FileCount(Ordner + Files.Name + '\');
Code := FindNext(Files);
End;
FindClose(Files);
Result := Count;
End;
Jetzt ist zwar im gegensatz zur vorherigen Version ein Integer mehr da, aber dafür ein IF weniger.
Hab mir auch noch mal dir
OH angeguckt - die vorherige Variante ist mehr nach der
OH.
Muß jetzt halt jeder selber entscheiden, was ihm/ihr besser gefällt.
[OT]
nochmal @ Mathias:
es haben sich mittlerweile ja auch noch andere Probleme von selbst behoben.
z.B. gab es Fehlermeldungen, wenn ich ein leeres Array mit SetLength(irgend ein Array, 0); nochmal auf Length = 0 setzte.
Der folgende Code ist jetzt auch schon bei mir überflüßig geworden:
If Length(Array) <> 0 Then SetLength(Array, 0);
[/OT]
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif