【正文】 最多的如定義類等。Inc 將例程中的參數(shù)值增加1或一個(gè)特定的值FloatToDecimal 將一個(gè)浮點(diǎn)數(shù)轉(zhuǎn)換為包含指數(shù)、數(shù)字及符號的十進(jìn)制浮點(diǎn)記錄類型IntToHex 將數(shù)值轉(zhuǎn)換為十六進(jìn)制數(shù)字符串Break 中斷循環(huán)；Continue直接跳至循環(huán)測試句，或使計(jì)數(shù)器增加一個(gè)步長，然后繼續(xù)循環(huán)（除非條件為空或計(jì)數(shù)器達(dá)到最大值）。 // use I and J to pute something... K := K + I。同樣的for語句可以用正好相反的計(jì)數(shù)器來寫：var K, I: Integer。 Text := 39。Number39。: Text := 39。39。end。 1: Text := 39。)要注意的是，不能在第一句之后、else 關(guān)鍵詞之前加分號，否則編譯器將告知語法錯(cuò)誤。CheckBox2 is checked39。end之前的最后一條語句末尾分號不是必需的，你可以寫成：begin // assignmentRandomize。名稱 ＝域名1：類型。名稱 ＝[下標(biāo)定義1，下標(biāo)定義2…下標(biāo)定義N]名稱 ＝ （值1,值2，值3…值N）。集合(Set)子域(SubRange)有序類型（Ordinal）簡單的類型常量3)類型常量1)變量名：=三種賦值格式　變量名：=2)　　===================1. // 定義一個(gè)動(dòng)態(tài)數(shù)組SetLength(S, 10)。 // 查找Like的位置,此處為3,如果沒有返回0Trim(str)。, str, 2)。 // 讀取最左邊的3個(gè)字符RightStr(S, 3)。begin name:string。 TReplaceFlags): , [rfReplaceAll])。%s%d39。//39。//使用索引Format(39。,[12])。x=39。//指定小數(shù)Format(39。,[])。x=1239。 Digits: Integer): string。 HexToBin(pointer(hex), pointer(strs), hex_len)。:39。 ShowMessage(inttostr(length(string(hex))))。 strs:=39。 Convert: array[0..15] of Char = 39。 if or or thenc:\39。procedure (Sender: TObject)。 。 ShowMessage(IntToStr(High(DWord)))。, [pos, length(keys)])+39。%d:%d39。 FirstTickCount := GetTickCount()。write_semaphore:=CreateSemaphore(0, 1, 1, nil)。file_name:=39。 // 向當(dāng)前占有焦點(diǎn)的控件發(fā)送剪切板粘帖指令constbegin i:=0。 max:=length(strs)。 ShowMessage(IntToStr(hex_len)+39。function IntToHex(Value: Integer。//39。x=%f39。x=39。//39。x=%.5x39。x=131239。,[])。//得到%S:=Format(39。39。 Flags: strs:TStringList。ILeftStr(str, 3)。h39。)。 arrText: array of Char。)。1)名字1，名字2，…名字n:類型。確切含義名稱3)值。數(shù)組類型常量字符(Character)類指針(Class Reference)指針類型(Pointer)用戶自定義類型枚舉類型Type名稱 ＝集合類型Type^結(jié)點(diǎn)類型end。Typeend。對ifthen型語句，僅當(dāng)條件滿足時(shí)，語句才執(zhí)行；if then ShowMessage (39。)。 if thenOnly CheckBox1 is checked39。下面是兩個(gè)簡單的例子：case Number ofThree39。 39。/39。: Text := 39。Lowercase character39。else下面是一個(gè)for語句的簡例，用來將前十個(gè)數(shù)加起來：var K := K + I。從下面的簡例很容易理解這一點(diǎn)：while (I = 100) and (J = 100) dobegin I := I + 1。注意：用 Break 和 Continue 系統(tǒng)過程可以改變循環(huán)執(zhí)行的標(biāo)準(zhǔn)流程。 Year := 1995。 Day := 14。IntToStr 將數(shù)值轉(zhuǎn)換為字符串StrPLCopy 拷貝Pascal類型字符串的一部分到一個(gè)零終止字符串Dec 將例程中的參數(shù)值遞減1或一個(gè)特定的值，其中特定值可在第二個(gè)可選參數(shù)中定義實(shí)數(shù)：SingleDoubleExtendedReal {$REALCOMPATIBILITY ON}據(jù)說不標(biāo)準(zhǔn)，要兼容舊的格式使用這個(gè)宏CompCurrencyTDateTime = type Double為了后續(xù)使用或直接用于變量，需要給自定義類型命名。Day: Byte。end。C39。 // two styles :=Oldstyle + [fsBold, fsItalic]。varP:^IntegerlX:Integer。end。復(fù)合語句begin end。else //default。until conditions。beginShowMessage (39。function Double2 (value: Integer) : Integer。常量參數(shù)使用const開放數(shù)組參數(shù)function Sum (const A: array of Integer): Integer。 forward。 overload。Caption: string = 39。格式化字符串format (39。 X, Y: Integer): BOOL。實(shí)際應(yīng)用時(shí)，外部聲明中的函數(shù)名與DLL中的函數(shù)名可以不同。interface// other units we need to refer tousesA, B, C。begin// ... code of procedure MyProcend。B:Char。b39。typeMyClass = class(BaseClass)publicfunction F:String。destructor Destroy()。typeTAirplane = class(TomerfaceObject,IcanFly)function Fly:String virtual。繼承異常類 p54VCLTObjectTPresistentTComponentTControl可視化控件Windowsed Controls 基于window的控件(TWinControl)Nonwindowsed Controls( TGraphicsControl)Nonvisual Components非可視控件可視化組件Windowbased controls有GDI句柄，Windows管理，擁有Windows對象的屬性Graphical controls無GDI句柄，自行繪圖管理，如大量的Laber(比較Static控件) speedbutton，節(jié)省GDI資源,但響應(yīng)事件麻煩?！璸ublished:property onClick : TNotifyEvent Read FonClick Write FonClick。read GetMonth write SetMonth。a error39。抽象接口 interfacetypeIcanfly = interface[39。 使用父輩被繼承的方法類引用MyClassClass = class of MyClass。構(gòu)造器constructor 代替procedure。C :=A。begin。// list of exported functions and proceduresprocedure MyProc?；卣{(diào)函數(shù)BOOL CALLBACK EnumWindowsProc (HWND hwnd, // handle of parent windowLPARAM lParam // applicationdefined value