码迷,mamicode.com
首页 > 移动开发 > 详细

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

时间:2017-11-18 00:59:06      阅读:208      评论:0      收藏:0      [点我收藏+]

标签:item   rms   present   app   comment   net   之间   graph   integer   

回首往日,从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

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

标签:item   rms   present   app   comment   net   之间   graph   integer   

原文地址:http://www.cnblogs.com/findumars/p/7854222.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!