MG: fixed mem leak of componentinterfaces

git-svn-id: trunk@2780 -
This commit is contained in:
lazarus 2002-08-18 08:54:00 +00:00
parent 24320a1606
commit 7f864f0bc4

View File

@ -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