Removed warning.

pyscripter · pyscripter · commit c73cb711d97c · 2018-05-01T05:24:59.000+03:00
diff --git a/PythonForDelphi/Components/Sources/Core/WrapDelphi.pas b/PythonForDelphi/Components/Sources/Core/WrapDelphi.pas
@@ -1517,7 +1517,7 @@ function TPyDelphiObject.GetAttrO(key: PPyObject): PPyObject;
     Finally call inherited which calls PyObject_GenericGetAttr
 *)
 var
-  Name: ShortString;
+  Name: string;
 {$IFNDEF FPC}
   Info: PMethodInfoHeader;
 {$ENDIF}
@@ -1526,7 +1526,7 @@ function TPyDelphiObject.GetAttrO(key: PPyObject): PPyObject;
 begin
   Result := nil;
   if GetPythonEngine.PyString_Check(Key) then
-    Name := ShortString(GetPythonEngine.PyString_AsDelphiString(Key))
+    Name := GetPythonEngine.PyString_AsDelphiString(Key)
   else
     Name := '';
 
@@ -1554,7 +1554,7 @@ function TPyDelphiObject.GetAttrO(key: PPyObject): PPyObject;
   else{$ENDIF} if Assigned(DelphiObject) and (Name <> '') then
   begin
     // Not a  method, try a property.
-    PropInfo := GetPropInfo(DelphiObject, string(Name));
+    PropInfo := GetPropInfo(DelphiObject, Name);
     if PropInfo <> nil then
     begin
       // we have a property
