Fehler beim Beenden meines Programmes

[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