paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-14 10:26:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dipsoe of S field in TResourceFile destructor

Browse Source
This commit is contained in:
pierre 1999-06-17 23:45:21 +00:00
parent f4697cbcf3
commit 82d45a463d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/wresourc.pas
View File

@ -667,6 +667,8 @@ destructor TResourceFile.Done;
begin
Flush;
inherited Done;
if assigned(S) then dispose(S,Done);
S:=nil;
if Resources<>nil then Dispose(Resources, Done); Resources:=nil;
if Entries<>nil then
begin Entries^.DeleteAll; Dispose(Entries, Done); Entries:=nil; end;
@ -701,7 +703,10 @@ end;
END.
{
$Log$
Revision 1.4 1999-04-07 21:56:05 peter
Revision 1.5 1999-06-17 23:45:21 pierre
* dipsoe of S field in TResourceFile destructor
Revision 1.4 1999/04/07 21:56:05 peter
+ object support for browser
* html help fixes
* more desktop saving things