Registriert seit: 1. Dez 2003
Ort: Luterbach (CH)
677 Beiträge
Delphi 12 Athens
|
AW: Daten Shredder Sourcecode
29. Jan 2017, 18:25
Diese wird doch hier erzeugt if not RenameFile(FileName, newname)
vielleicht . . .
das ShredderFile(newname) wird aber immer aufgerufen, auch nach raise Exception . . . - oder liege ich da falsch ?
Ebenso das DeleteFile.
Grundsätzlich fehlt mir hier ein Block und da der zusammengehörige Code mehr als eine Zeile umfassr ein
Roland
|