《delphi app 开发入门(六)object pascal 语法初探》由会员分享，可在线阅读，更多相关《delphi app 开发入门(六)object pascal 语法初探（5页珍藏版）》请在金锄头文库上搜索。
1、Delphi APP 開發入門（六）Object Pascal 語法初探 經過前面五週幾乎每週可以寫出一個簡單 App 後， 大家都可以感受到 Delphi 強大的開發威力！這個禮拜要很快速的教大家 Delphi 的核心語言Object Pascal，當然因為這系列的文章是Delphi APP 開發入門，所以不會著墨太多語法的部份(一方面是怕大家很快就嚇跑了)，筆者還是希望能擺在對入門有興趣為重心。接下來就教導大家最常見的變數、常數宣告、資料型態的種類、結構型態的宣告以及流程控制等基本語法，其他的部份就留待實戰時再一一解說了。 程式註解 單行註解使用的是雙反斜線 /，多行註解使用的是 1 2
2、3 4 5 6 7 / 這是單行註解 1 2 3 這是多行註解 4 5 常數、變數 Object Pascal 宣告變數的關鍵字是使用 var，例如建立一個 i1 的變數，型態是 Integer整數的話。 1 2 var i1 : Integer ; 如果同時宣告 i1,i2 都是整數時，可以用,隔開 1 2 var i1,i2 : Integer; 而常數的關鍵字則是 Const，我們建立一個 pi 的變數，型態是 Double，值為 3.14159 1 2 Const pi : Double = 3.14159 ; 型態種類 Object Pascal 的型態種類繁多，甚至因為支援多種平台
3、還有支援各平台的型態。我們僅先列出最常用的資料型態給大家參考， 如果對完整的資料型態有興趣， 可以參考 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 : S
4、tring ; / 員工地址 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 / 用法 1(單一判斷) if Z B then s := Z 大於 B; / 用法 2(多重判斷) if Z B then s := Z 大於 B / 注意
5、這邊不 用 ; else if Z B then begin s := Z 大於 B; / 注意這邊要 用 ; end else if Z For 迴圈 for 是一個明確執行次數的迴圈，可以升冪或降冪執行 1 2 3 4 / 由 1 執行到 10 for i:= 1 to 10 do begin sum:= sum + i; end; 1 2 / 由 10 執行到 1 for i:= 10 downto 1 do begin 3 4 sum:= sum + i; end; While 迴圈 for 與while最大的不同在於 for有明確執行次數， 但while 則是依照條件判斷是否要執行，
6、以剛才的 1 加到 10 為例。 1 2 3 4 While i10; Case 多選一 如果你的判斷是要多選一的話，可以使用 case of 的語法 1 2 3 4 5 6 7 8 9 10 case iMonth of 2,3,4: Showmessage(春季); 5.7: Showmessage(夏季); 8.10: Showmessage(秋季); 11.12,1: Showmessage(冬季); else 11 12 Showmessage(月份有誤); end; 程序與函數 程序(procedure)與函數(function)的不同在於有無傳回值。 1 2 3 4 5 6 7
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); / 直 接 呼 叫 procedure showmessage(name); s:= hello2(codedata); / 需要建立變數接回 傳值 showmessage(s); end; 本週是用最簡單的方式告訴讀者們 Delphi 的基本語法，如果大家對於 Delphi 語法有興趣深入的話，可以參考免費 Embarcadero 的官方文件。當然筆者在後續的教學中，如果有使用未提過的語法或使用，也會在文中做說明。
