Delphi春天將來臨，Android遇到XE7我也是醉了，Hello World
阿新 • • 發佈：2017-05-27
感覺 員工 end std iss 固態硬盤 add sso 企業
最關鍵的一步別忘了，眼下模擬器非常渣，別想用模擬器了，走不通。直接插上手機。見笑。小米：
回首往日，從Delphi 7走到如今。總感覺不慍不火。期間論壇倒掉無數，沒倒掉的也半死不活，大批的程序猿轉向C#，Java，PHP。
Delphi的開發高效有目共睹，一直不忍放棄。Delphi以前一夜之間完畢了固定資產的轉換程序。從Access數據導入到MSSQL數據。那次的經歷是從下午6點開始編寫，中間除了吃飯和拉尿。一直坐到第二天早上10點。拍著胸脯答應客戶的事情最終辦到了。拷貝就用。使用也方便，不用像VB那樣須要掛非常多執行庫。
前段時間以XE開發的一個積分制軟件結束後。也是花了大概2個月左右的業余時間，工作完畢放上網絡後，真想為廣大的小企業員工開發一款查詢軟件。選擇開發平臺之余，發現了一個劃時代的重磅工具-
為什麽選擇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