Fehler beim Beenden meines Programmes

[Luckie]

Kleine Hilfe 216 ist eine Access Violation. Du greifst auf ein Objekt zu, welches nicht mehr existiert. Etwas Quellecode wäre ganz gut, sonst können wir nur raten.

[p80286]

Klingt wie eine mal initialisierte mal nicht initialisierte globale Variable..........

Gruß
K-H

[Luckie]

Eher dass die VCL im OnClose der Form schon Objekte abräumt, auf die er noch zugreift.

[greenmile]

Ich nutze bei sowas "CloseQuery" und setze dann eine globale Variable ("AppClosed") auf true. Dann behandle ich CloseQuery nur noch, wenn AppClosed <> true ist. Ist für den Fall, dass die Anwendung nicht korrekt stirbt.

[p80286]

Zitat von Luckie:

Eher dass die VCL im OnClose der Form schon Objekte abräumt, auf die er noch zugreift.

Mal ja mal nein? Das sollte doch reproduzierbar sein??

Gruß
K-H

[tcoman]

Vielen Dank fuer all die guten Hinweise.
Ich habe es jetzt herausgefunden und erklaere es,
vllt kann der eine oder andere diesen Fehler dann
vermeiden.

Ich schreibe mit BlockWrite einen Record in eine
Binaerdatei innerhalb der Methode OnFormClose().

Der Rekord enthaelt verschiedene Variablentypen:
type TCfg = record
i : integer;
b : boolean;
a : array[0..99] of byte;
t : string[64];
s : string;
end; {record}

Jetzt habe ich eine Konstante deklariert:
const CfgSizeOf = SizeOf(TCfg);

Und eine Variable Cfg:
var Cfg : TCfg;

Beim Schreiben in die Binaerdatei verwende ich
BlockWrite wie folgt:

function _write_cfg_into_file: boolean;
var F : File Of Byte;
ior : integer;
begin
ior:=0;
AssignFile(F, 'C:\CfgFile.cfg');
FileMode:=fmOpenReadWrite;
{$I-} ReWrite(F);
{$I+} inc(ior, IOResult);
{$I-} BlockWrite(F, Cfg, CfgSizeOf, nw);
{$I+} inc(ior, IORESULT);
if (nw <> CfgSizeOf) then inc(ior);
{$I-} CloseFile(F);
{$I+} inc(ior, IOResult);
result:=(ior = 0);
end; {function}

Der Fehler liegt daran, und er taucht nicht jedesmal auf,
doch wenn er auftaucht, dann sehe ich im TaskManager den
Programmnamen stehen, obwohl das Programm bereits beendet
ist.

Also der Fehler ist, dass ich einen Allow Huge Strings
Compilerschalter gesetzt habe und in der Rekordvariablen
s : string einen beliebig langen Text stehen haben kann,
der auch ein Leerstring sein kann.

Beim Initialisieren des Programmes, und wenn noch keine
Cfgdatei existiert, wird dieser String s:=''; gesetzt.

Die Konstante CfgSizeOf hat aber einen festen Wert
bekommen und versucht mit BlockWrite diesen Wert zu
schreiben, der nicht immer stimmen muss.

Fehlerbehebung:
Ich habe die s : string in s : string[255] umgewandelt
und der Fehler taucht nicht mehr auf.

Danke fuer Eure Geduld und Eure Hilfe,
schoene Gruesse,
Terence