Handbook之002: 查看运行平台

分类: 文章 • 2024-02-05 21:04:10

1.新建多设备运用程序工程

2.选择空白的运用

3.代码如下，点击运行，可以看到运行平台

关键代码：

  1 procedure TForm1.Button1Click(Sender: TObject);
  2 begin
  3    {$IFDEF IOS}
  4     ShowMessage ('Running on iOS');
  5   {$ENDIF}
  6 
  7   {$IFDEF ANDROID}
  8     ShowMessage ('Running on Android');
  9   {$ENDIF}
 10 
 11   {$IFDEF MSWINDOWS}
 12     ShowMessage ('Running on Windows');
 13   {$ENDIF}
 14 end

Handbook之002: 查看运行平台

相关推荐