|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
Delphi 11 Alexandria
|
Re: FindFirst/FindNext BUG
3. Dez 2004, 18:19
Moin Nightshade,
noch ein Bug in Deiner Routine:
if copy(fsr.name,1,1) <> '.' then
es muss explizit auf <> '.' und <> '..' geprüft werden, da eine Datei/Verzeichnisname durchaus mit einem Punkt beginnen darf.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|