Fix reference counting error in demos 6 and 7.

Author: pyscripter

Demos/Demo06/Unit1.dfm

@@ -10,8 +10,6 @@ object Form1: TForm1
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
-  OldCreateOrder = True
-  PixelsPerInch = 96
   TextHeight = 13
   object Splitter1: TSplitter
     Left = 0
@@ -20,7 +18,6 @@ object Form1: TForm1
     Height = 3
     Cursor = crVSplit
     Align = alTop
-    ExplicitWidth = 536
   end
   object Memo1: TMemo
     Left = 0

Demos/Demo06/Unit1.pas

@@ -151,6 +151,8 @@ procedure PyPoint_dealloc(obj : PPyObject); cdecl;
 // object.value
 // object.method(args)
 function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
+var
+  Py_Key: PPyObject;
 begin
   with GetPythonEngine, PPyPoint(obj)^ do
     begin
@@ -163,9 +165,14 @@ function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
       else
         begin
           // Else check for a method
-          Result := PyObject_GenericGetAttr(obj, PyUnicodeFromString(key));
-          if not Assigned(Result) then
-            PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Utf8Encode(Format('Unknown attribute "%s"',[key]))));
+          Py_Key := PyUnicodeFromString(key);
+          try
+            Result := PyObject_GenericGetAttr(obj, Py_key);
+            if not Assigned(Result) then
+              PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Utf8Encode(Format('Unknown attribute "%s"',[key]))));
+          finally
+            Py_DECREF(Py_Key);
+          end;
         end;
     end;
 end;

Demos/Demo07/Unit1.pas

@@ -191,6 +191,8 @@ procedure PyPoint_dealloc(obj : PPyObject); cdecl;
 // object.value
 // object.method(args)
 function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
+var
+  Py_Key: PPyObject;
 begin
   with GetPythonEngine, PPyPoint(obj)^ do
     begin
@@ -203,9 +205,14 @@ function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
       else
         begin
           // Else check for a method
-          Result := PyObject_GenericGetAttr(obj, PyUnicodeFromString(key));
-          if not Assigned(Result) then
-            PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Utf8Encode(Format('Unknown attribute "%s"',[key]))));
+          Py_Key := PyUnicodeFromString(key);
+          try
+            Result := PyObject_GenericGetAttr(obj, Py_Key);
+            if not Assigned(Result) then
+              PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Utf8Encode(Format('Unknown attribute "%s"',[key]))));
+          finally
+            Py_DECREF(Py_Key);
+          end;
         end;
     end;
 end;