Der Hauptgrund wurde ja schon griß genannt, aber an der Stelle geht es auch gleich weiter.
Zitat:
Delphi-Quellcode:
try
AssignFile(domfile, cStore_TODO + '
\' + datetostr(date) + '
.dom');
// in .TODO ablegen
Rewrite(domfile);
// erneut schreiben (in RAM)
write(domfile, project);
// abschliessen
finally
CloseFile(domfile);
// Datei "schließen", also auf Platte schreiben
// kopieren nach temp
CopyFile(pchar(cStore_TODO + '
\' + datetostr(date) + '
.dom'),
pchar(cstore_temp + '
\' + datetostr(date) + '
.dom'), False)
end;
// ---------------------------------------------------------------------------
// PC-Name ermitteln
form_main.Caption :=
'
Monetalis FinanzV | Graphischer Lizenzmanager EA 2014 [ ' +
GetComputername + '
]';
Variablen VOR dem Try-Finally initialisieren, denn was soll passieren, wenn es knallt?
> nichtinitialisierte Variable freigeben
Delphi-Quellcode:
Create;
try
...
finally
Free;
end;
// oder
Init;
try
...
Create;
...
finally
Free;
end;
Und warum wird im Finally die Datei kopierert?
Das gehört wohl eher danach, denn wenn die Datei nicht gespeichert werden konnte, dann gibt es auch nix zum Kopieren.
merkst Du was? Du wirfst uns Code hin, ...
Und klick mal bitte dein eigenes Bild da oben an. (wenn schon Screenshot, dann doch bitte nur die wichtigen/nötigen Teile, wie z.B. Alt+Druck)
PS: Mit Kommentaren kann man es auch übertreiben.
Wenn man wirklich alles kommentiert, vorallem wo man eigentlich auch alles bereits so sieht, dann erkenn ich jetzt nicht, ob da auch wirklich irgendwo mal was Wichtiges steht.