Fix Demo 7

Author: pyscripter

Demos/Demo07/Unit1.dfm

@@ -138,7 +138,7 @@ object Form1: TForm1
     OnInitialization = PythonType1Initialization
     TypeName = 'Point'
     Prefix = 'Create'
-    Services.Basic = [bsGetAttrO, bsSetAttrO, bsRepr, bsStr]
+    Services.Basic = [bsGetAttr, bsSetAttr, bsRepr, bsStr, bsTraverse]
     Services.InplaceNumber = []
     Services.Number = []
     Services.Sequence = []

Demos/Demo07/Unit1.pas

@@ -205,7 +205,7 @@ function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
           // Else check for a method
           Result := PyObject_GenericGetAttr(obj, PyUnicodeFromString(key));
           if not Assigned(Result) then
-            PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
+            PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown attribute "%s"',[key]))));
         end;
     end;
 end;
@@ -226,7 +226,7 @@ function  PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObjec
             Result := 0;
           end
         else
-          PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
+          PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Attribute "%s" needs an integer',[key]))));
       // Check for attribute y
       end else if key = 'y' then begin
         if PyLong_Check(value) then
@@ -235,9 +235,9 @@ function  PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObjec
             Result := 0;
           end
         else
-          PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
+          PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Attribute "%s" needs an integer',[key]))));
       end else
-        PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
+        PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown attribute "%s"',[key]))));
     end;
 end;