Zitat von
Alfons_G:
Beim Auslesen von Ordnern z.B. wird man while FindNext() verwenden
Gerade da macht es eigentlich keiner
Delphi-Quellcode:
if FindFirst('C:\*.*', faAnyFile, SR) = 0 then
repeat
SR....
...
until FindNext(SR) <> 0;
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so