functionVarIsNone(const AValue : Variant): Boolean;

functionVarIsTrue(const AValue : Variant): Boolean;

functionVarModuleHasObject(const AModule : Variant; aObj: AnsiString): Boolean;

functionVarModuleHasObject(const AModule : Variant;const aObj: AnsiString): Boolean;

functionVarHasAttr(const AValue: Variant;const AAttr: AnsiString): Boolean;

functionNewPythonList(const ASize : Integer =0 ): Variant;

functionNewPythonTuple(const ASize : Integer ): Variant;

Result := AValue;// the cast into a boolean will call the PyObject_IsTrue API.

end;

functionVarModuleHasObject(const AModule : Variant; aObj: AnsiString): Boolean;

functionVarModuleHasObject(const AModule : Variant;const aObj: AnsiString):

Boolean;

with GetPythonEnginedo

Result := VarIsPython(AModule)and

PyModule_Check(ExtractPythonObjectFrom(AModule))and

Result := VarIsPythonModule(AModule)and

Assigned(PyDict_GetItemString(

PyModule_GetDict(ExtractPythonObjectFrom(AModule)),PAnsiChar(aObj)));

end;

functionVarHasAttr(const AValue: Variant;const AAttr: AnsiString): Boolean;

with GetPythonEnginedo

Result := VarIsPython(AValue)and

(PyObject_HasAttrString(ExtractPythonObjectFrom(AValue), PAnsiChar(AAttr)) =1);

end;

functionNewPythonList(const ASize : Integer =0 ): Variant;

_list : PPyObject;