Added ReturnTrue, ReturnFalse

pyscripter · pyscripter · commit 99b1561f565b · 2021-03-15T20:24:10.000+02:00
diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas
@@ -1855,6 +1855,8 @@   TPythonEngine = class(TPythonInterface)
     procedure  PyListToStrings( list : PPyObject; strings : TStrings );
     procedure  PyTupleToStrings( tuple: PPyObject; strings : TStrings );
     function   ReturnNone : PPyObject;
+    function   ReturnTrue : PPyObject;
+    function   ReturnFalse : PPyObject;
     function   FindModule( const ModuleName : AnsiString ) : PPyObject;
     function   FindFunction(const ModuleName,FuncName: AnsiString): PPyObject;
     function   SetToList( data : Pointer; size : Integer ) : PPyObject;
@@ -5682,12 +5684,24 @@ function TPythonEngine.PyUnicodeFromString(const AString : UnicodeString) : PPyO
 {$ENDIF}
 end;
 
+function TPythonEngine.ReturnFalse : PPyObject;
+begin
+  Result := Py_False;
+  Py_INCREF( Result );
+end;
+
 function TPythonEngine.ReturnNone : PPyObject;
 begin
   Result := Py_None;
   Py_INCREF( Result );
 end;
 
+function TPythonEngine.ReturnTrue : PPyObject;
+begin
+  Result := Py_True;
+  Py_INCREF( Result );
+end;
+
 function TPythonEngine.FindModule( const ModuleName : AnsiString ) : PPyObject;
 var
   modules, m : PPyObject;
