Hilfe bei AccessViolation

[himitsu]

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.

Zitat von Lemmy:

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.