编程各种语法结构实例.docVIP

全局變量一般在 implementation 後面聲明,可以在聲明時直接被初始化為一個zhi. var VariableName : type = constantExpression; 局部變量在聲明時不能進行初始化,但是在同時聲明多個全局變量時,也不能對變量進行初始化. 在沒有初始化的情況下,所有的全局變量會自動初始化為0, 而區域變量側根據變量類型的不同而不同 全局變量不適用時 不釋放空間的話,它會一直佔用系統資源知道程序被關閉 函數 function 函數名 (形式參數表) : 類型 ; Virtual/Override; //函數頭 加關鍵字(Virtual) 此函數變為虛擬方法 加關鍵字(Override),此函數重載了父類的方法 begin // 函數體 語句 ... end; 過程 procedure 過程名 ( 形式參數表 ) //過程頭 begin 語句 ... end if語句 if 1=2 then begin Label1.Caption := hu ren ne....; end else begin Label1.Caption := dui di; x := 1; Label1.Caption := inttostr(x); Exit; end; case語句 變量 x, 判斷等於1,2,3時...返回等於的那個數字.else 返回4。 @ case x of 1: begin result := 1; end; 2: .... else begin result := 4; end; end; 循環 repeat語句(最少執行一次): repeat x := x + 1; Writeln(x); until x = 10; while語句: x := 0; while x 10 do begin x := x + 1; end; Label1.caption := inttostr(x); for語句: for i := 1 to 5 do begin if i=3 then Label1.caption := inttostr(i); end; 控制語句和過程: break過程: 在while`for或者repeat 循環中調用break(),使得程序的執行流程立即跳 出循環. continue過程: 想跳過循環中部份代碼重新開始下一次循環,就調用 continue()過程, continue()過程后的代碼不執行 with語句: 下面記lu 那有實例 類: type Tmember = class Name : String; Age : Integer; Male : Boolean; Procedure SetID(vname:string; vage:Integer; vmale:Boolean); //過程成員 Function IsAdult : Boolean; //函數成員 end; 定義類的對象: var Aman : Tmember; begin Aman.Create; //此步驟才是創建類的對象,給對象分配內存 和進行數據初始化 .上面只是定義...并沒有創建 end; 類的構造參數實例: 析構函數: 抽象類: 異常(簡單實例): try … … except on E: Exception do begin ShowMessage(E.Message); Exit; end; else … … end; 枚舉類型 type TDays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday); 子界類型(Subrange)是下列這些類型中某範圍nei的zhi: 整型`布爾型`字符型或者枚舉型. 在想限制一個變量的取zhi範圍時,子界類型是非常有用的 type Thours = 0..23 TvalidLetter = A..F TDays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday); TWorkDay = Monday..Friday; (一個TDays型的子界) 字符串(ShortString類型比 AnsiString小) var str : string //編譯器認為str的類型是AnsiString var