Delphi APP 開發入門(六)Object Pascal 語法初探
閲讀次數:3442 發表時間:2014/06/10
Delphi APP 開發入門(五)GPS 定位功能 << 前情
經過前面五週幾乎每週可以寫出一個簡單App後,大家都可以感受到Delphi強大的開發威力!這個禮拜要很快速的教大家Delphi的核心語言「Object Pascal」,當然因為這系列的文章是「Delphi APP 開發入門」,所以不會著墨太多語法的部份(一方面是怕大家很快就嚇跑了),筆者還是希望能擺在對入門有興趣為重心。接下來就教導大家最常見的變數、常數宣告、資料型態的種類、結構型態的宣告以及流程控制等基本語法,其他的部份就留待實戰時再一一解說了。
程式註解
單行註解使用的是雙反斜線 //,多行註解使用的是 { }
常數、變數
Object Pascal宣告變數的關鍵字是使用var,例如建立一個 i1的變數,型態是Integer整數的話。
如果同時宣告i1,i2都是整數時,可以用,隔開
而常數的關鍵字則是Const,我們建立一個 pi的變數,型態是Double,值為3.14159
1 2 | Const
pi : Double = 3.14159 ;
|
型態種類
Object Pascal的型態種類繁多,甚至因為支援多種平台還有支援各平台的型態。我們僅先列出最常用的資料型態給大家參考,如果對完整的資料型態有興趣,可以參考Embarcadero Variant Type這一章節。 基本的資料型態如下:
1 2 3 4 5 6 | var
i: Integer;
s: String;
c: Char;
d: Double;
b: Boolean;
|
結構型態宣告
結構型態的宣告是由程式設計師自訂之資料型態。例如宣告一個員工記錄
1 2 3 4 5 6 7 | type
TEmployee = Record
Name : String ;
Addr : String ;
Hour : Double ;
Employed : Boolean;
end;
|
或是宣告一個1到100的整數陣列
1 2 | Type
TMyArray = array [ 1 .. 100 ] of integer;
|
流程控制
if流程
if流程控制大概是所有程式語言中最常用的判斷語法,在Delphi中的用法如下
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
if Z > B then
s := 'Z大於B' ;
if Z > B then
s := 'Z大於B'
else if Z <strong> B then begin
s := 'Z大於B' ;
end else if Z < B then begin
s := 'Z小於B' ;
end else begin
s := "Z等於B" ;
end;
</strong>
|
For迴圈
for是一個明確執行次數的迴圈,可以升冪或降冪執行
1 2 3 4 | for i:= 1 to 10 do begin
sum:= sum + i;
end;
|
1 2 3 4 | for i:= 10 downto 1 do begin
sum:= sum + i;
end;
|
While迴圈
for與while最大的不同在於for有明確執行次數,但while則是依照條件判斷是否要執行,以剛才的1加到10為例。
1 2 3 4 | While i<= 10 do begin
sum := sum + i;
i := i + 1 ;
end;
|
repeat迴圈
while與repeat都是條件式迴圈,而二者不同是while是先判斷再執行,repeat是先執行再判斷。
1 2 3 4 | repeat
sum:=sum+i;
i:=i+ 1 ;
until i> 10 ;
|
Case多選一
如果你的判斷是要多選一的話,可以使用case of的語法
1 2 3 4 5 6 7 8 9 10 11 12 | case iMonth of
2 , 3 , 4 :
Showmessage( '春季' );
5 .. 7 :
Showmessage( '夏季' );
8 .. 10 :
Showmessage( '秋季' );
11 .. 12 , 1 :
Showmessage( '冬季' );
else
Showmessage( '月份有誤' );
end;
|
程序與函數
程序(procedure)與函數(function)的不同在於有無傳回值。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | var
name : String;
procedure TForm1.hello1(s: String);
begin
name := 'hello ' + s;
end;
function TForm1.hello2(s: String): String;
begin
result := 'hello ' + s;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:= '' ;
hello1( 'codedata' );
showmessage(name);
s:= hello2( 'codedata' );
showmessage(s);
end;
|
本週是用最簡單的方式告訴讀者們Delphi的基本語法,如果大家對於Delphi語法有興趣深入的話,可以參考免費Embarcadero的官方文件。當然筆者在後續的教學中,如果有使用未提過的語法或使用,也會在文中做說明。
後續 >> Delphi APP 開發入門(七)通知與雲端推播
|
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步