Removed warning.

Author: pyscripter

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