Handbook之002: 查看运行平台

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

转载于:https://www.cnblogs.com/GodPan/p/4904530.html