File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed
PythonForDelphi/Components/Sources/Core Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -4902,8 +4902,10 @@ procedure TPythonEngine.CheckRegistry;
49024902 key : string;
49034903 Path : string;
49044904 NewPath : string;
4905+ { $IFDEF CPUX86}
49054906 MajorVersion : integer;
49064907 MinorVersion : integer;
4908+ { $ENDIF}
49074909 VersionSuffix: string;
49084910{ $ENDIF}
49094911begin
@@ -4912,10 +4914,10 @@ procedure TPythonEngine.CheckRegistry;
49124914 try
49134915 with TRegistry.Create(KEY_ALL_ACCESS and not KEY_NOTIFY) do
49144916 try
4915- MajorVersion := StrToInt(RegVersion[1 ]);
4916- MinorVersion := StrToInt(RegVersion[3 ]);
49174917 VersionSuffix := ' ' ;
49184918{ $IFDEF CPUX86}
4919+ MajorVersion := StrToInt(RegVersion[1 ]);
4920+ MinorVersion := StrToInt(RegVersion[3 ]);
49194921 if (MajorVersion > 3 ) or ((MajorVersion = 3 ) and (MinorVersion >= 5 )) then
49204922 VersionSuffix := ' -32' ;
49214923{ $ENDIF}
You can’t perform that action at this time.
0 commit comments