Hallo zusammen,
ich habe ein mittlerweile ziemlich grosses Projekt.
Das Hauptmodul sieht folgendermaßen aus:
Delphi-Quellcode:
Application.Initialize;
Application.Title := 'SoftwareTest';
Application.CreateForm(Tfrm_MDI, frm_MDI);
Application.CreateForm(Tfrm_DBSetup, frm_DBSetup);
Application.CreateForm(Tfrm_Setup, frm_Setup);
Application.CreateForm(Tfrm_DDE, frm_DDE);
if not (frm_MDI.KDRReg.CheckReg(TRUE)) then Halt;
Application.CreateForm(Tfrm_Setup, frm_Setup);
Application.CreateForm(Tfrm_Designer, frm_Designer);
frm_Setup.Init;
frm_DBSetup.Init;
frm_MDI.Init;
if not (Tfrm_Login.Create(nil).Execute(vmastermode)) then Halt;
frm_MDI.InitAfterLogin(vmastermode);
Application.Run;
frm_MDI.DeInit;
Das Programm läuft im normalfall ganz normal ohne Fehler, es wird auch ohne Fehler beendet.
Komme ich aber an die beiden Punkte wo es mit Halt das Programm verlässt fliegt das Programm mit einem Speicherzugriffsfehler + anschließendem Runtime Error 216 raus.
Ich habe auch das Produkt Eurekalog, leider zeigt es mir auch nur im Callstack die Zeile in dem der Halt steht.
Das Problem muss irgendwie innerhalb der letzten 2 Wochen entstanden sein. Leider habe ich so viel in der Zeit daran geändert, das ich nicht mehr durch ausprobieren rausfinden kann, was der Grund ist.
Ein Application.Terminate bringt nicht den gewünschten erfolg, da dann das Programm auf jedenfall durchstartet, und danach erst abbricht (fehlerfrei).
Habe ich irgendeine Möglichkeit diesen Fehler zu finden?
Danke für jeden Tipp
Oliver