Einzelnen Beitrag anzeigen

Benutzerbild von blawen
blawen

Registriert seit: 1. Dez 2003
Ort: Luterbach (CH)
677 Beiträge
 
Delphi 12 Athens
 
#5

AW: Daten Shredder Sourcecode

  Alt 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
Code:
if...
  then..
  else..
Block und da der zusammengehörige Code mehr als eine Zeile umfassr ein
Code:
begin...end
Roland
  Mit Zitat antworten Zitat