Hi all.
I have a lot of trouble freeing string list. they are created in formcreate:
procedure TMainform.FormCreate(Sender: TObject);
var fversion: string;
begin
Appath := IncludeTrailingBackSlash(ExtractFilePath(Application.EXEName));
mainform.HelpFile := appath + 'back4winxp.hlp';
VCLzip1.DoProcessMessages := true;
VCLzip1.FileOpenMode := fmOpenRead or fmShareDenyNone;
TheReasonSummary := Tstringlist.Create;
IncludeList := Tstringlist.Create;
ZIPfiles := Tstringlist.Create;
But in either case below, they cause a memory error when I close the form
if they have not been used (below are in FormClose):
try IncludeList.Free; except end;
try ZIPfiles.Free; except end;
try TheReasonSummary.Free; except end;
try
if sizeof(includelist) > 0 then IncludeList.Free;
if sizeof(ZIPfiles) > 0 then ZIPfiles.Free;
if sizeof(TheReasonSummary) > 0 then TheReasonSummary.Free;
except end;
The only working way I find is as follows:
IncludeList:=nil;
ZIPfiles:=nil;
TheReasonSummary:=nil;
Comments????
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
