如何检查Delphi Android 10.3.3是否在64位或32位上运行？

Question

是否有任何有关Delphi Firemonkey Android 10.3.3的文档，请检查您是否在Android设备上以32位或64位运行？

来自Dalija Prasnikar的答案似乎效果最好：

var p: pointer;
begin
  if SizeOf(p) = 4 then
    showmessage('32 bit')
  else if SizeOf(p) = 8 then
    showmessage('64 bit');

我似乎无法获得其他答案才能正常工作。

Answer 1

{$IFDEF CPU32BITS }
  // 32-bit
{$ELSE }
  // 64-bit
{$ENDIF }

除非您是说Andoid操作系统是32位还是64位（您可以在64位Android上运行32位程序）。

在这种情况下

（假设您已经知道您正在Android上运行）

USES System.SysUtils;

.
.
.

{$IFDEF CPU32BITS }
  IF TOSVersion.Architecture=TOSVersion.TArchitecture.arARM64 THEN
    // 64-bit
  ELSE
    // 32-bit
{$ELSE }
  // 64-bit
{$ENDIF }