Delphi春天将来临，Android遇到XE7我也是醉了，Hello World

Posted 2020-10-14 朝闻道

回首往日，从Delphi 7走到现在，总感觉不愠不火，期间论坛倒掉无数，没倒掉的也半死不活，大批的程序员转向C#，Java，php。

Delphi的开发高效有目共睹，一直不忍放弃，Delphi曾经一夜之间完成了固定资产的转换程序，从Access数据导入到MSSQL数据，那次的经历是从下午6点开始编写，中间除了吃饭和拉尿，一直坐到第二天早上10点，拍着胸脯答应客户的事情终于办到了，拷贝就用，使用也方便，不用像VB那样需要挂很多运行库。

前段时间以XE开发的一个积分制软件结束后，也是花了大概2个月左右的业余时间，工作完成放上网络后，真想为广大的小企业员工开发一款查询软件。选择开发平台之余，发现了一个划时代的重磅工具-Delphi XE7。

为什么选择XE7？很简单，我会Delphi，高效，我不开发低层的东西，我只面向业务，有android，有ios，有64位。对我来说已经集大成了。

好了，说了这么多，开工了，我要为我的软件再加上个手机应用，从那里开始呢，当然是Demo，哈哈，你没猜错，Hello World。

装完XE7，豁，好家伙好大几十个G，我的可怜的固态硬盘啊。安装的朋友们注意了，至少腾出40G的空间。什么，你还是XP，XP你就别再混了，都Win7了。

都说，装完来一发吧，骚年！

好吧，开搞！

启动程序，新建工程，这我不用讲了把，选择程序的时候，选Multi-Device-Application：

 

然后放上控件，老三样，Edit，button，listbox：

写上代码：

 

[delphi] view plain copy

 

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  
7.   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,  
8.   FMX.ListView.Types, FMX.ListView, FMX.StdCtrls, FMX.Controls.Presentation,  
9.   FMX.Edit, FMX.Layouts, FMX.ListBox;  
10.   
11. type  
12.   TForm1 = class(TForm)  
13.     Edit1: TEdit;  
14.     Button1: TButton;  
15.     ListBox1: TListBox;  
16.     procedure Button1Click(Sender: TObject);  
17.     procedure FormShow(Sender: TObject);  
18.   private  
19.     { Private declarations }  
20.     I: Integer;  
21.   public  
22.     { Public declarations }  
23.   end;  
24.   
25. var  
26.   Form1: TForm1;  
27.   
28. implementation  
29.   
30. {$R *.fmx}  
31.   
32. procedure TForm1.Button1Click(Sender: TObject);  
33. begin  
34.   ListBox1.Items.Add(Edit1.Text+\'(\'+IntToStr(I)+\')!\');  
35.   I := I+1;  
36. end;  
37.   
38. procedure TForm1.FormShow(Sender: TObject);  
39. begin  
40.   I:=0;  
41. end;  

最关键的一步别忘了，目前模拟器很渣，别想用模拟器了，走不通，直接插上手机，见笑，小米：

 

插上后选择开发平台和手机，手机别忘了开启开发模式，怎么开，自己度娘去：

好了，直接运行吧，在安卓端，同意安装，好了，程序工作了：

 

 

http://blog.csdn.net/TiggerKiller/article/details/41316517