Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#6

Re: Ordner nebst Unterordnern durchsuchen

  Alt 3. Mai 2010, 20:04
Zitat von lbccaleb:
Vor kurzem wurde hier ne gute Klasse für sowas reingestellt, vllt währe das was für dich, wenn es nun auch nicht direkt was zu dem Problem ist:

FinFilesCls
Erstmal das

Dann gibt es auch noch einige andere FindAllFiles-Funktionen in der DP und CodeLib.
Hier im Forum suchenFindAllFiles & FindAllFilesFindAllFiles

Zitat von Gargamel:
access violation at 0x7c91e8e6: write of address 0x00030ffc
Und an welcher Stelle/CodeZeile tritt diese Exception auf?


[add]
Der Gund ist
Zitat:
Code:
if FindFirst(aPath+aMask,aAttr,aRes) [color=#ff0000][b]<[/b][/color] 0 then exit;
Es stimmt zwar, daß viele Fehlercodes negativ (31. Bit gesetzt > OLE Error Codes = Severity-Flag),
aber
Delphi-Quellcode:
{ The system cannot find the file specified. }
ERROR_FILE_NOT_FOUND = 2;
Zitat:
FindFirst returns 0 if a file was successfully located, otherwise, it returns an error code.
Die Umkehrung von =0 ist <>0
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat