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
时间: 2024-12-08 13:17:39