ApiVersion added in PythonVersions.pas

pyscripter · pyscripter · commit 85c6f6a47b70 · 2018-02-02T14:24:30.000+02:00
diff --git a/PythonForDelphi/Components/Sources/Core/PythonVersions.pas b/PythonForDelphi/Components/Sources/Core/PythonVersions.pas
@@ -25,6 +25,7 @@   TPythonVersion = record
     function GetIsPython3K: Boolean;
     function GetHelpFile: string;
     function GetDisplayName: string;
+    function GetApiVersion: integer;
   public
     IsRegistered: Boolean;
     IsAllUsers: Boolean;
@@ -39,6 +40,7 @@   TPythonVersion = record
     property IsPython3K: Boolean read GetIsPython3K;
     property HelpFile: string read GetHelpFile write FHelpFile;
     property DisplayName: string read GetDisplayName write FDisplayName;
+    property ApiVersion: integer read GetApiVersion;
   end;
 
   TPythonVersions = array of TPythonVersion;
@@ -106,9 +108,18 @@ procedure TPythonVersion.AssignTo(PythonEngine: TPersistent);
     TPythonEngine(PythonEngine).RegVersion := SysVersion;
     TPythonEngine(PythonEngine).DllName := DLLName;
     TPythonEngine(PythonEngine).DllPath := DLLPath;
+    TPythonEngine(PythonEngine).APIVersion := ApiVersion;
   end;
 end;
 
+function TPythonVersion.GetApiVersion: integer;
+begin
+  if  CompareVersions(SysVersion, 2.4) < 0 then
+    Result := 1013
+  else
+    Result := 1012;
+end;
+
 function TPythonVersion.GetDisplayName: string;
 begin
   Result := FDisplayName;
