mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 10:50:53 +02:00
MG: fixed mem leak of componentinterfaces
git-svn-id: trunk@2780 -
This commit is contained in:
parent
24320a1606
commit
7f864f0bc4
@ -3103,6 +3103,7 @@ begin
|
||||
// create jitform
|
||||
CInterface := TComponentInterface(
|
||||
FormEditor1.CreateFormFromStream(BinLFMStream));
|
||||
writeln('AAA1 CInterface=',HexStr(Cardinal(CInterface),8));
|
||||
if CInterface=nil then begin
|
||||
ACaption:='Form load error';
|
||||
AText:='Unable to build form from file '#13
|
||||
@ -7128,6 +7129,9 @@ end.
|
||||
|
||||
{ =============================================================================
|
||||
$Log$
|
||||
Revision 1.385 2002/09/16 17:17:53 lazarus
|
||||
MG: fixed mem leak of componentinterfaces
|
||||
|
||||
Revision 1.384 2002/09/16 16:06:19 lazarus
|
||||
MG: replaced halt with raiseexception
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user