Delphi APP 開發(fā)入門(六)Object Pascal 語(yǔ)法初探.pdf

《Delphi APP 開發(fā)入門(六)Object Pascal 語(yǔ)法初探.pdf》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、DelphiAPP開發(fā)入門（六）ObjectPascal語(yǔ)法初探經(jīng)過前面五週幾乎每週可以寫出一個(gè)簡(jiǎn)單App後，大家都可以感受到Delphi強(qiáng)大的開發(fā)威力！這個(gè)禮拜要很快速的教大家Delphi的核心語(yǔ)言「ObjectPascal」，當(dāng)然因?yàn)檫@系列的文章是「DelphiAPP開發(fā)入門」，所以不會(huì)著墨太多語(yǔ)法的部份(一方面是怕大家很快就嚇跑了)，筆者還是希望能擺在對(duì)入門有興趣為重心。接下來就教導(dǎo)大家最常見的變數(shù)、常數(shù)宣告、資料型態(tài)的種類、結(jié)構(gòu)型態(tài)的宣告以及流程控制等基本語(yǔ)法，其他的部份就留待實(shí)戰(zhàn)時(shí)再一一解說了。程式註解單行註解使用的是雙反斜線//，多行註解使用的是{}1//這是單行註解2{13

2、2435這是多行註解6475}常數(shù)、變數(shù)ObjectPascal宣告變數(shù)的關(guān)鍵字是使用var，例如建立一個(gè)i1的變數(shù)，型態(tài)是Integer整數(shù)的話。1var2i1:Integer;如果同時(shí)宣告i1,i2都是整數(shù)時(shí)，可以用,隔開1var2i1,i2:Integer;而常數(shù)的關(guān)鍵字則是Const，我們建立一個(gè)pi的變數(shù)，型態(tài)是Double，值為3.141591Const2pi:Double=3.14159;型態(tài)種類ObjectPascal的型態(tài)種類繁多，甚至因?yàn)橹г喾N平臺(tái)還有支援各平臺(tái)的型態(tài)。我們僅先列出最常用的資料型態(tài)給大家參考，如果對(duì)完整的資料型態(tài)有興趣，可以參考Embarcadero

3、VariantType這一章節(jié)?；镜馁Y料型態(tài)如下:1var2i:Integer;//整數(shù)3s:String;//字串4c:Char;//字元5d:Double;//浮點(diǎn)數(shù)6b:Boolean;//布林結(jié)構(gòu)型態(tài)宣告結(jié)構(gòu)型態(tài)的宣告是由程式設(shè)計(jì)師自訂之資料型態(tài)。例如宣告一個(gè)員工記錄1type2TEmployee=Record3Name:String;//員工姓名4Addr:String;//員工地址5Hour:Double;//上班時(shí)數(shù)6Employed:Boolean;//在職與否7end;或是宣告一個(gè)1到100的整數(shù)陣列1Type2TMyArray=array[1..100]ofinte

4、ger;流程控制if流程if流程控制大概是所有程式語(yǔ)言中最常用的判斷語(yǔ)法，在Delphi中的用法如下//用法1(單一判斷)ifZ>Bthen1s:='Z大於B';2//用法2(多重判斷)3ifZ>Bthen4s:='Z大於B'//注意這邊不5用;6elseifZBthenbegin7s:='Z大於B';//注意這邊要8用;9endelseifZFor迴圈for是一個(gè)明確執(zhí)行次數(shù)的迴圈，可以升冪或降冪執(zhí)行1//由1執(zhí)行到102fori:=1to1

5、0dobegin3sum:=sum+i;4end;1//由10執(zhí)行到12fori:=10downto1dobegin3sum:=sum+i;4end;While迴圈for與while最大的不同在於for有明確執(zhí)行次數(shù)，但while則是依照條件判斷是否要執(zhí)行，以剛才的1加到10為例。1Whilei<=10dobegin2sum:=sum+i;3i:=i+1;4end;repeat迴圈while與repeat都是條件式迴圈，而二者不同是while是先判斷再執(zhí)行，repeat是先執(zhí)行再判斷。1repeat2sum:=sum+i;3i:=i+1;4untili>10;Case多選一如果你的判斷是

6、要多選一的話，可以使用caseof的語(yǔ)法1caseiMonthof22,3,4:3Showmessage('春季');45..7:5Showmessage('夏季');68..10:7Showmessage('秋季');811..12,1:9Showmessage('冬季');10else11Showmessage('月份有誤');12end;程序與函數(shù)程序(procedure)與函數(shù)(function)的不同在於有無(wú)傳回值。varname:String;1procedureTForm1.hello1(s:String);2begin3name:='hello'+s;//如果需要傳遞值4

7、需在外部宣告變數(shù)5end;67functionTForm1.hello2(s:String):String;8begin9result:='hello'+s;//回傳字串型態(tài)變數(shù)10end;1112procedureTForm1.Button1Click(Sender:TObject);13var14s:String;15begin16s:='';17hello1('codedata');//直接呼叫18procedure19sho