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

Posted zhchoutai

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi春天将来临,Android遇到XE7我也是醉了,Hello World相关的知识,希望对你有一定的参考价值。

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

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

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

为什么选择XE7?非常easy,我会Delphi,高效,我不开发低层的东西,我仅仅面向业务,有android,有ios。有64位。对我来说已经集大成了。

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

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

都说,装完来一发吧,骚年!

好吧,开搞!

启动程序,新建project,这我不用讲了把,选择程序的时候。选Multi-Device-Application:

技术分享


然后放上控件,老三样。Edit。button,listbox:

技术分享

写上代码:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView, FMX.StdCtrls, FMX.Controls.Presentation,
  FMX.Edit, FMX.Layouts, FMX.ListBox;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    I: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text+‘(‘+IntToStr(I)+‘)!‘);
  I := I+1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  I:=0;
end;

最关键的一步别忘了,眼下模拟器非常渣,别想用模拟器了,走不通。直接插上手机。见笑。小米:

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

技术分享

好了,直接执行吧。在安卓端,允许安装,好了,程序工作了:

技术分享










以上是关于Delphi春天将来临,Android遇到XE7我也是醉了,Hello World的主要内容,如果未能解决你的问题,请参考以下文章

Delphi xe7 up1 调用android振动功能

如何在Delphi XE7下写一个Android APP

Delphi xe7 FireMonkey / Mobile (Android, iOS)生成 QR Code完整实例

如何在Delphi XE7下写一个Android APP

Delphi XE7 - 字段 FTBcd - 数字超出范围

Delphi XE7中使用JSON