【文章內(nèi)容簡介】 se ShowMessage (39。Only CheckBox1 is checked39。) else ShowMessage ( 39。Checkbox1 is not checked, who cares for Checkbox2?39。)end。Case語句case語句包括用來選值的表達(dá)式、可能值序列或一個(gè)取值范圍。這些值應(yīng)該是常量，并且它們必須唯一，而且應(yīng)屬于有序類型。Case語句最后可以帶一個(gè)else 語句，當(dāng)沒有一個(gè)標(biāo)簽與選擇器的值一致時(shí)，執(zhí)行else語句。下面是兩個(gè)簡單的例子：case Number of 1: Text := 39。One39。 2: Text := 39。Two39。 3: Text := 39。Three39。end。case MyChar of 39。+39。 : Text := 39。Plus sign39。 39。39。 : Text := 39。Minus sign39。 39。*39。, 39。/39。: Text := 39。Multiplication or division39。 39。039。..39。939。: Text := 39。Number39。 39。a39。..39。z39。: Text := 39。Lowercase character39。 39。A39。..39。Z39。: Text := 39。Uppercase character39。else Text := 39。Unknown character39。end。Pascal語言中的循環(huán)其它編程語言中使用的循環(huán)語句，Pascal語言中都有，它們包括 for、 while 和 repeat 語句。如果你用過其他編程語言，你會發(fā)現(xiàn)Pascal中的循環(huán)語句沒什么特別的，因此這里我只作簡要的說明。For循環(huán)Pascal 中的for循環(huán)嚴(yán)格地建立在計(jì)數(shù)器基礎(chǔ)上，循環(huán)每執(zhí)行一次，計(jì)數(shù)器不是增加一個(gè)值就是減小一個(gè)值。下面是一個(gè)for語句的簡例，用來將前十個(gè)數(shù)加起來：var K, I: Integer。begin K := 0。 for I := 1 to 10 do K := K + I。同樣的for語句可以用正好相反的計(jì)數(shù)器來寫：var K, I: Integer。begin K := 0。 for I := 10 downto 1 do K := K + I。Pascal 中的for循環(huán)語句其靈活性比其他語言?。ㄋ荒苤付?之外的步長），不過簡單也容易理解。如果需判斷的條件比較復(fù)雜，或想自定義計(jì)數(shù)器，你可以用while語句或 repeat 語句，而不是for循環(huán)語句。注意：for循環(huán)計(jì)數(shù)器不必非是數(shù)字，它可以是任何有序類型的值，例如一個(gè)字符或一個(gè)枚舉類型值。while語句和repeat語句whiledo 循環(huán)語句和 repeatuntil 語句的不同點(diǎn)在于repeat 循環(huán)語句的代碼至少要執(zhí)行一次。從下面的簡例很容易理解這一點(diǎn)：while (I = 100) and (J = 100) dobegin // use I and J to pute something... I := I + 1。 J := J + 1。end。repeat // use I and J to pute something... I := I + 1。 J := J + 1。until (I 100) or (J 100)。從上可見即使 I 或 J 的初始值大于100，repeatuntil循環(huán)中的代碼也仍會執(zhí)行一次。注意：兩種循環(huán)另一個(gè)關(guān)鍵的不同點(diǎn)是，repeatuntil 循環(huán)的條件是反向的條件，只要不滿足這個(gè)條件，循環(huán)就執(zhí)行；當(dāng)條件滿足時(shí)，循環(huán)終止。這正好與whiledo 循環(huán)相反，whiledo 循環(huán)當(dāng)條件是真值時(shí)才執(zhí)行。為此，我不得不在上面代碼中用反向條件來獲得相同的結(jié)果。注意：用 Break 和 Continue 系統(tǒng)過程可以改變循環(huán)執(zhí)行的標(biāo)準(zhǔn)流程。Break 中斷循環(huán)；Continue直接跳至循環(huán)測試句，或使計(jì)數(shù)器增加一個(gè)步長，然后繼續(xù)循環(huán)（除非條件為空或計(jì)數(shù)器達(dá)到最大值）。還有兩個(gè)系統(tǒng)過程 Exit 和 Halt，讓你立即從函數(shù)或過程中返回，或者終止程序。With語句 with BirthDay do begin Year := 1995。 Month := 2。 Day := 14。 end。關(guān)鍵字absolute 指令 (變量)abstract 指令 (方法)and 運(yùn)算符 (布爾)array 類型as 運(yùn)算符 (RTTI)asm 語句assembler 向后兼容 (匯編)at 語句 (異常處理)automated 訪問類別符 (類)begin 塊標(biāo)記case 語句cdecl 函數(shù)調(diào)用協(xié)定class 類型const 聲明或指令(參數(shù))constructor 特殊方法contains 運(yùn)算符 (集合)default 指令 (屬性)destructor 特殊方法dispid dispinterface 界面類別符dispinterface 類型div 運(yùn)算符do 語句downto 語句 (for)dynamic 指令 (方法)else 語句 (if 或 case)end 塊標(biāo)記except 語句 (異常處理)export 向后兼容 (類)exports 聲明external 指令 (函數(shù))far 向后兼容 (類)file 類型finalization 單元結(jié)構(gòu)finally 語句 (異常處理)for 語句forward 函數(shù)指令function 聲明goto 語句if 語句implementation 單元結(jié)構(gòu)implements 指令 (屬性)in 運(yùn)算符 (集合) 工程結(jié)構(gòu)index 指令 (dipinterface界面)inherited 語句initialization 單元結(jié)構(gòu)inline 向后兼容 (見 asm)interface 類型is 運(yùn)算符 (RTTI)label 聲明library 程序結(jié)構(gòu)message 指令 (方法)mod 運(yùn)算符 (數(shù)學(xué))name 指令 (函數(shù))near 向后兼容 (類)nil 數(shù)值nodefault 指令 (屬性)not 運(yùn)算符 (布爾)object 向后兼容 (類)of 語句 (case)on 語句 (異常處理)or 運(yùn)算符 (布爾)out 指令 (參數(shù))overload 函數(shù)指令override 函數(shù)指令package 程序結(jié)構(gòu) (控件包)packed 指令 (記錄)pascal 函數(shù)調(diào)用協(xié)定private 訪問類別符 (class)procedure 聲明program 程序結(jié)構(gòu)property 聲明protected 訪問類別符 (類)public 訪問類別符 (類)published 訪問類別符 (類)raise 語句 (異常處理)read 屬性類別符readonly dispatch 界面類別符record 類型register 函數(shù)調(diào)用協(xié)定reintroduce 函數(shù)指令repeat 語句requires 程序結(jié)構(gòu) (控件包)resident 指令 (函數(shù))resourcestring 類型safecall 函數(shù)調(diào)用協(xié)定set 類型shl 運(yùn)算符 (數(shù)學(xué))shr 運(yùn)算符 (數(shù)學(xué))stdcall 函數(shù)調(diào)用協(xié)定stored 指令 (屬性)string 類型then 語句 (if)threadvar 聲明to 語句 (for)try 語句 (異常處理)type 聲明unit 單元結(jié)構(gòu)until 語句uses 單元結(jié)構(gòu)var 聲明virtual 指令 (方法)while 語句with 語句write 屬性類別符writeonly dispatch 界面類別符xor 運(yùn)算符 (布爾)優(yōu)先法則單目運(yùn)算符 (最高優(yōu)先級)@ 取變量或函數(shù)的地址(返回一個(gè)指針)not 邏輯取反或按位取反乘除及按位運(yùn)算符* 相乘或集合交集/ 浮點(diǎn)相除div 整數(shù)相除mod 取模 (整數(shù)相除的余數(shù))as 程序運(yùn)行階段類型轉(zhuǎn)換 (RTTI運(yùn)算符)and 邏輯或按位求和shl 按位左移shr 按位右移加減運(yùn)算符+ 相加、集合并集、字符串連接或指針增加一個(gè)偏移量 相減、集合差集或指針減少一個(gè)偏移量or 邏輯或按位或運(yùn)算xor 邏輯或按位異或運(yùn)算關(guān)系及比較運(yùn)算符(最低優(yōu)先級)= 判斷是否相等 判斷是否不相等 判斷是否小于 判斷是否大于= 判斷是否小于或等于,或是否是一個(gè)集合的子集= 判斷是否大于或等于,或是否是一個(gè)集合的父集in 判斷是否是集合成員is 判斷對象是否類型兼容 (又一個(gè)RTTI運(yùn)算符)Boolean (ByteBool WordBool LongBool)CharIntegerShortInt 128~127Byte 0~255SmallInt 32768~32767Word 0~65535LongInt LongWordInt64Interger CardinalAnsiCharWidChar=Chr(),把數(shù)字轉(zhuǎn)化為字符，Ord為相反