Handbook之002: 查看运行平台

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

image

 

 

 

 

 

 

 

2.选择空白的运用

image

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

image

关键代码：

  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
posted @ 2015-10-23 14:49  GOD攀  阅读(225)  评论(0)  编辑  收藏  举报