sync with P4D, PyIter_Check

Author: Alextp

python4lazarus/PythonEngine.pas

@@ -1472,7 +1472,6 @@   TPythonInterface=class(TDynamicDll)
     PyObject_NewVar:function (t:PPyTypeObject; size:NativeInt):PPyObject; cdecl;
     PyObject_Free:procedure (ob:PPyObject); cdecl;
     PyObject_GetIter: function (obj: PPyObject) : PPyObject; cdecl;
-    //PyIter_Check: function ( obj : PPyObject ) : Boolean;
     PyIter_Next: function (obj: PPyObject) : PPyObject; cdecl;
     PyObject_IsInstance:function (inst, cls:PPyObject):integer; cdecl;
     PyObject_IsSubclass:function (derived, cls:PPyObject):integer; cdecl;
@@ -1618,6 +1617,7 @@   TPythonInterface=class(TDynamicDll)
   function PyModule_CheckExact( obj : PPyObject ) : Boolean;
   function PySlice_Check( obj : PPyObject ) : Boolean;
   function PyFunction_Check( obj : PPyObject ) : Boolean;
+  function PyIter_Check( obj : PPyObject ) : Boolean;
   function PyUnicode_Check( obj : PPyObject ) : Boolean;
   function PyUnicode_CheckExact( obj : PPyObject ) : Boolean;
   function PyType_IS_GC(t : PPyTypeObject ) : Boolean;
@@ -3662,6 +3662,11 @@ function TPythonInterface.PyFunction_Check( obj : PPyObject ) : Boolean;
      (obj^.ob_type = PPyTypeObject(PyFunction_Type)));
 end;
 
+function TPythonInterface.PyIter_Check(obj: PPyObject): Boolean;
+begin
+ Result := Assigned(obj) and Assigned(obj^.ob_type^.tp_iternext);
+end;
+
 function TPythonInterface.PyUnicode_Check( obj : PPyObject ) : Boolean;
 begin
   Result := PyObject_TypeCheck(obj, PyUnicode_Type);