sync P4D, about TPyVar

Author: Alexey-T

python4lazarus/PythonEngine.pas

@@ -2581,8 +2581,8 @@   TPyVar = class(TPyObject)
     ////////////////
 
     // Basic services
-    function  GetAttr(key : PAnsiChar) : PPyObject; override;
-    function  SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
+    function  GetAttrO( key: PPyObject) : PPyObject; override;
+    function  SetAttrO( key, value: PPyObject) : Integer; override;
     function  Repr : PPyObject; override;
 
     // Class methods
@@ -8279,26 +8279,26 @@ destructor TPyVar.Destroy;
 
 // Then we override the needed services
 
-function  TPyVar.GetAttr(key : PAnsiChar) : PPyObject;
+function  TPyVar.GetAttrO( key: PPyObject) : PPyObject;
 begin
   with GetPythonEngine do
     begin
-      if CompareText( AnsiString(key), 'Value') = 0 then
+      if CompareText( PyObjectAsString(key), 'Value') = 0 then
         Result := GetValue
       else
-        Result := inherited GetAttr(key);
+        Result := inherited GetAttrO(key);
     end;
 end;
 
-function  TPyVar.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
+function  TPyVar.SetAttrO( key, value: PPyObject) : Integer;
 begin
   Result := 0;
   with GetPythonEngine do
     begin
-      if CompareText( AnsiString(key), 'Value' ) = 0 then
+      if CompareText( PyObjectAsString(key), 'Value' ) = 0 then
         SetValue( value )
       else
-        Result := inherited SetAttr(key, value);
+        Result := inherited SetAttrO(key, value);
     end;
 end;