開通VIP，暢享免費(fèi)電子書等14項(xiàng)超值服
首頁(yè)
好書
留言交流
下載APP
聯(lián)系客服
2012.03.30
//它使得你能夠創(chuàng)建一個(gè)新變量, 并且該變量的起始地址與另一個(gè)變量相同.var Str: string[32]; StrLen: Byte absolute Str;//這個(gè)聲明指定了變量StrLen起始地址與Str相同.//由于字符串的第0個(gè)位置保存了字符串的長(zhǎng)度, 所以StrLen的值即字符串長(zhǎng)度.begin Str := 'abc'; Edit1.Text := IntToStr(StrLen);end;
//它允許你創(chuàng)建抽象的方法, 包括有抽象方法的類稱為抽象類.//Abstract關(guān)鍵字必須與Virtual或Dynamic關(guān)鍵字同時(shí)使用, 因?yàn)槌橄蠓椒ū仨毐桓采w式實(shí)現(xiàn).//抽象類不能實(shí)例化, 抽象方法不能包含方法體.type TDemo = class private protected procedure X; virtual; abstract; public constructor Create; destructor Destroy; override; published end;
//一、表示邏輯與if (a>0) and (b>0) then//二、表示位運(yùn)算var a,b,c: Integer;begin c := (a and b);end;//使用And表示邏輯時(shí), And左右的表達(dá)式必須用小括號(hào)括起, 以避免以生條件的沖突.//例如:if a>0 and b>0 then//編譯器可能會(huì)理解為:if a>(0 and b)>0 then//或:if (a>0) and (b>0) then//但是實(shí)際編譯時(shí), 編譯器會(huì)產(chǎn)生一個(gè)沖突, 報(bào)告錯(cuò)誤.//并且第一種可能包含了a>b>c的形式, 這在Delphi中不被支持.//所以使用And運(yùn)算符時(shí)必須使用括號(hào), 以區(qū)分左右的條件.//表示位運(yùn)算時(shí)也必須加上括號(hào), 將And以及左右參數(shù)括起.
//Array用于表示數(shù)組, 任何的對(duì)象都能被聲明成數(shù)組.數(shù)組分為靜態(tài)和動(dòng)態(tài)的２種.//靜態(tài)數(shù)組var Arr1: array [1..10] of Integer;//動(dòng)態(tài)數(shù)組, 由于聲明時(shí)不知其元素個(gè)數(shù), 所以必須在后期用SetLength方法設(shè)置數(shù)組的大小var Arr2: array of Integer;//數(shù)組作為參數(shù)時(shí), 不能傳入數(shù)組的大小, 只能傳入數(shù)組名, 然后用Length方法獲取數(shù)組的元素個(gè)數(shù)function X(A: array of Integer): Integer;var i: Integer;begin Result := 0; for i := 0 to Length(A)-1 do Result := Result + A[i];end;
//As用于將一個(gè)對(duì)象轉(zhuǎn)換為另一個(gè)對(duì)象procedure BtnClick(Sender:TObject);begin (Sender as TButton).Caption := 'Clicked';end;//對(duì)于對(duì)象填充接口的轉(zhuǎn)換, 必須用As進(jìn)行(HTTPRIO as IExp).GetConnection;//As不能用于數(shù)據(jù)類型的轉(zhuǎn)換, 下面的代碼是錯(cuò)誤的:var i: Integer; s: string;begin s := (i as string);end;//正確寫法是:s := string(i);
//Asm關(guān)鍵字用于插入?yún)R編代碼, 使用匯編代碼時(shí), 必須使用asm...end;的結(jié)構(gòu), 而非begin...end;function IntToHex(Value: Integer; Digits: Integer): string;asm CMP EDX, 32 JBE @A1 xor EDX, EDX @A1: PUSH ESI MOV ESI, ESP SUB ESP, 32 PUSH ECX MOV ECX, 16 CALL CvtInt MOV EDX, ESI POP EAX CALL System.@LStrFromPCharLen ADD ESP, 32 POP ESIend;
//Assembler關(guān)鍵字用于支持早期的匯編, 如80386等.//它和Asm的區(qū)別:Asm允許使用Win32匯編, 而Assembler只允許80x86匯編, 它不允許Invoke語(yǔ)句的出現(xiàn).function IntToHex(AValue: Int64): string; assembler;
//Automated訪問(wèn)區(qū)分符用于描述一個(gè)自動(dòng)類型的成員, 它能夠使程序的版本向下兼容.//ComObj單元內(nèi)的成員及其實(shí)例不能使用Automated訪問(wèn)區(qū)分符.type TDemo = class automated Str:WideString; end;//在程序的下一個(gè)版本中, 將Str做了修改, 變成type TDemo = class automated Str: AnsiString; end//則新版本的Str變量能夠接受舊版本的WideString型數(shù)據(jù), 并自動(dòng)轉(zhuǎn)換成AnsiString.//在實(shí)際開發(fā)中, 如果沒有特殊的需要, 一般不用automated訪問(wèn)區(qū)分符.
//begin關(guān)鍵字用于表示一段程序或一個(gè)結(jié)構(gòu)的開始, 必須用end關(guān)鍵字來(lái)結(jié)束.procedure X;begin ShowMessage('A Demo');end;//一般的結(jié)構(gòu), 如If, For, While等也需要用begin關(guān)鍵字來(lái)標(biāo)出結(jié)構(gòu)起始點(diǎn)for i:=1 to 100 dobegin sum := sum + i; if sum > 1000 then Break;end;
//Case語(yǔ)句用于完成條件選擇, Case語(yǔ)句的的被選擇對(duì)象必須是有序類型, 包括整型, 枚舉類型, 字符型等.//Case語(yǔ)句必須由end結(jié)束,如果沒有相符合的選擇項(xiàng), 可以加入else來(lái)作出通用選擇.function GetDays(AYear,AMonth: Integer): Integer;begin case AMonth of 1,3,5,7,8,10,12: Result := 31; 4,6,9,11: Result := 30; 2: begin if IsLeapYear(AYear) then Result:=29 else Result:=28; end; else Result:=0;end;
//Cdecl是函數(shù)調(diào)用協(xié)定的一種, 它規(guī)定了從C或C++編寫的DLL中調(diào)用函數(shù)所必須遵守的規(guī)則.//它可以將C或C++中的數(shù)據(jù)類型轉(zhuǎn)換為Delphi的.//例如C++中的代碼:int X(int i){ return i*2;}
//這個(gè)函數(shù)被編譯在Demo.dll中, 用Delphi調(diào)用時(shí)必須使用:function X(i: Integer): Integer; Cdecl; external 'Demo.dll';
//Class關(guān)鍵字用于聲明或繼承一個(gè)類, 也可以使類和接口同時(shí)繼承.//另外, Class關(guān)鍵字也能用于聲明類通用方法, 使得父類可以從類內(nèi)訪問(wèn)子類的方法.type ClassDemo = class(TObject) private public constructor Create; end;//如果用class聲明方法, 則該方法在類與相關(guān)類中都可以使用, 譬如:type ClassA = class private public procedure Y; end;type ClassB = class(ClassA) private public class procedure X; end;//則在使用時(shí)ClassA能夠直接訪問(wèn)ClassB的X方法procedure ClassA.Y;begin Self.X;end;//此時(shí)父類將子類的class方法作為自身的方法進(jìn)行調(diào)用.
//Const關(guān)鍵字用于聲明常量, 使用const聲明的數(shù)據(jù)將不能在程序中被改變.//也可以用來(lái)聲明函數(shù)參數(shù), 用const指定的參數(shù)不允許在函數(shù)中改變.const MyFileName = 'Delphi';const MyInteger = 100;//用Const聲明常量不需要指出其數(shù)據(jù)類型, 系統(tǒng)會(huì)自動(dòng)判斷類型, 并作自動(dòng)調(diào)整.//函數(shù)中可以用const聲明不可更改的參數(shù)function X(const i: Integer): string;//此時(shí)在函數(shù)操作過(guò)程中, i的值不可改變.
//constructor關(guān)鍵字用來(lái)聲明一個(gè)類的構(gòu)造函數(shù), 當(dāng)類被實(shí)例化時(shí), 首先調(diào)用此函數(shù)//構(gòu)造函數(shù)一般用Create表示, Create方法能夠連帶類中存在的CreateWnd方法.type ClassDemo = class(TObject) private fValue: Integer; public constructor Create; end;constructor ClassDemo.Create;begin fValue := 0;end;
//Contains關(guān)鍵字指出了某個(gè)包(Package)是否包含某個(gè)文件.//用Contains引入的文件必須被添加到包文件中, 它可以避免關(guān)鍵文件的引用丟失.package DATAX; requires rtl, clx; contains Db, DBLocal, DBXpress;end.
//Default關(guān)鍵字用于指出一個(gè)屬性的默認(rèn)值//只有有序類型的屬性才允許默認(rèn)值的存在, 否則必須在構(gòu)造函數(shù)中初始化屬性值.type ClassDemo = class private fValue: Integer; published property Value: Integer read fValue write fValue default 0; end;//它也可以指出一個(gè)類的默認(rèn)屬性property strings[Index: Integer]: string read GetString write PutString; Default;
//Destructor用于標(biāo)識(shí)析構(gòu)函數(shù), 析構(gòu)函數(shù)在類被釋放時(shí)自動(dòng)調(diào)用.//析構(gòu)函數(shù)只允許覆蓋, 再不允許重載.析構(gòu)函數(shù)通常用Destroy作為函數(shù)名.type ClassDemo = class(TComponent) public destructor Destroy;override; end;//由于TComponent類中也有Destroy方法, 所以要將其重寫//但是若要重載析構(gòu)函數(shù), 則不允許, 下面代碼是錯(cuò)誤的:destructor Destroy; overload;
//DispId關(guān)鍵字被用在DispInterface接口中, 用于指定特定的適配序號(hào).//在DispInterface接口中, 適配序號(hào)必須是唯一的, //如果不指定DispId, 則系統(tǒng)會(huì)自動(dòng)分配適配序號(hào)給接口內(nèi)每一個(gè)方法.//可以通過(guò)適配序號(hào)訪問(wèn)DispInterface接口中的方法.type IStringsDisp = dispinterface ['{EE05DFE2-5549-11D0-9EA9-0020AF3D82DA}'] property ControlDefault[Index: Integer]: Olevariant dispid 0; default; function Count: Integer; dispid 1; property Item[Index: Integer]: Olevariant dispid 2; procedure Remove(Index: Integer); dispid 3; procedure Clear; dispid 4; function Add(Item: Olevariant): Integer; dispid 5; function _NewEnum: IUnknown; dispid -4; end;
//DispInterface用于聲明一個(gè)特定的適配器接口, 這個(gè)適配器能夠接受標(biāo)準(zhǔn)系統(tǒng)接口中傳入傳出的數(shù)據(jù).//用DispInterface聲明的接口不能被繼承, 只能夠被引用.//DispInterface中方法只能調(diào)用, 并且必須被動(dòng)態(tài)綁定.//可以通過(guò)DispId為接口內(nèi)方漢分配適配序號(hào).//DispInterface僅能用于Windows平臺(tái), 如果在Linux下進(jìn)行開發(fā), 則此關(guān)鍵字會(huì)自動(dòng)被系統(tǒng)屏蔽.//通常情況下, 不使用DispInterface.//實(shí)例請(qǐng)參見DispId
//Div用于求兩數(shù)之整數(shù)商.用于Div運(yùn)算的兩個(gè)數(shù)值必須均為整型, 其運(yùn)算結(jié)果也為整型.var a,b,c:Integer;begin a := 20; b := 3; c := a div b; {6}end;
//Do關(guān)鍵字用于For, While, On, With語(yǔ)句, 構(gòu)成特定的結(jié)構(gòu)//For語(yǔ)句:for i := 1 to 100 do sum:=sum+i;//While語(yǔ)句:while i < 100 dobegin sum := sum + i; Inc(i);end;//On語(yǔ)句(異常處理):try i := StrToInt(s);except on exception do ShowMessage('Error!');end;//With語(yǔ)句:with Memo1.Lines dobegin Clear; Append('abc'); Append('123');end;
//DownTo關(guān)鍵字用于For語(yǔ)句, 指明循環(huán)變量是遞減的.for i := 100 downto 1 do ListBox1.Items.Add(IntToStr(i));//在For語(yǔ)句中, 循環(huán)變量遞增用To關(guān)鍵字, 遞減用DownTo關(guān)鍵字.
//Dynamic用于聲明一個(gè)動(dòng)態(tài)的方法, //動(dòng)態(tài)方法可以被覆蓋, 并且可以使代碼大小盡可能的減少(區(qū)別于Virtual).procedure X(i: Integer); dynamic;
//else用于引導(dǎo)程序的運(yùn)行方向, 它可以與If, Case和On語(yǔ)句聯(lián)用, 當(dāng)條件不滿足時(shí), 轉(zhuǎn)到else下運(yùn)行//If語(yǔ)句(在If語(yǔ)句中, else前不允許有分號(hào)):if a > b then c := aelse c:=b;//Case語(yǔ)句:case Tag Of 1:Result:=1; 2:Result:=2; 3:Result:=3;else Result:=0;end;//On語(yǔ)句(異常處理):try i := StrToInt(s);Excpet on EZeroDivide do Result := 1; on EOverflow do Result := 2;else Result := 0;end;
//End用于結(jié)束一個(gè)語(yǔ)句塊或是一個(gè)單元.//它可以與begin, Case, Class, Interface, Asm, Unit, Package等相匹配.//對(duì)于語(yǔ)句塊(局部結(jié)束), End后必須添加分號(hào).//而對(duì)于單元或包(全局結(jié)束), end后必須添加句號(hào).//在If語(yǔ)句中else關(guān)鍵字前的End后不允許添加符號(hào).procedure X;begin with Button1 do begin if Button1.ShowHint then Button1.Caption := 'Hinted' else Button1.Caption := 'Not Hinted'; end;end;//在包內(nèi)使用End來(lái)結(jié)束:package DATAX; requires rtl, clx; contains Db, DBLocal, DBXpress;end.
//except關(guān)鍵字用于異常處理, 必須用在try語(yǔ)句內(nèi), 如果發(fā)生異常, 則執(zhí)行except后的語(yǔ)句try i := StrToInt(s);except ShowMessage('Error!');end;
//Export標(biāo)明了函數(shù)調(diào)用協(xié)定, 指出函數(shù)可以被輸出, 輸出的函數(shù)能被本地或遠(yuǎn)程調(diào)用.//其他程序可以用dll的形式調(diào)用程序內(nèi)的函數(shù).它是向下兼容的.function Add(a,b: Integer): Integer; export;//如果這個(gè)程序被編譯為Demo.exe, 并且另一個(gè)程序需要調(diào)用這個(gè)函數(shù), 可以使用以下語(yǔ)句function Add(a,b: Integer): Integer; stdcall; external 'Demo.exe';
//exports用于輸出對(duì)象, 它必須被用在接口和實(shí)現(xiàn)之間, 可以同時(shí)輸出多個(gè)項(xiàng), 項(xiàng)與項(xiàng)之間用逗號(hào)分開.library Demo;function X(i: Integer): string; stdcall;begin Result:=IntToStr(i);end;exports X;beginend.//如果輸出的對(duì)象被重載, 則必須給對(duì)象起個(gè)別名, 并注明參數(shù).library Demo;function X(i: Integer): string; overload; stdcall;begin Result := IntToStr(i);end;function X(s: string): Integer; overload; stdcall;begin Result := StrToInt(s);end;exports X(i: Integer) name 'x1', X(s: string) name 'x2';beginend.
//External關(guān)鍵字用于引用一個(gè)外部的或是OBJ內(nèi)的方法.{$L Demo.OBJ}procedure X(i:Integer);external;//如果是從dll或外部程序中引用, 則可以使用以下代碼:function A(FileName: string): string; external 'Demo.dll';//如果被引用的函數(shù)被重載, 則必須另外指出引用的名稱.function A(Name: string): string; overload; stdcall; external 'Demo.dll' name 'A1';function A(Code: Integer): string; overload; stdcall; external 'Demo.dll' name 'A2';//使用External關(guān)鍵字時(shí), 必須注意大小寫, 否則將出現(xiàn)錯(cuò)誤.
//Far標(biāo)明了函數(shù)調(diào)用協(xié)定, 指出函數(shù)可以被遠(yuǎn)程調(diào)用.//其他程序可以用dll的形式調(diào)用程序內(nèi)的函數(shù).它是向下兼容的.function Add(a,b: Integer): Integer; Far;//如果這個(gè)程序被編譯為Demo.exe, 并且另一個(gè)處于其他計(jì)算機(jī)的程序需要調(diào)用這個(gè)函數(shù), 可以使用以下語(yǔ)句:function Add(a,b: Integer): Integer; stdcall; external 'Demo.exe';
//File關(guān)鍵字指出了文件操作類型, 文件必須被聲明為File, //如果在File后追加Of和文件類型, 則文件可以被定義為讀寫指定類型數(shù)據(jù).type TPerson = record PName: string[32]; PAge: Integer; end;var PFile: file of TPerson;
//finalization關(guān)鍵字標(biāo)識(shí)了單元被釋放時(shí)所要調(diào)用的方法, //通常是釋放掉單元中不能自動(dòng)釋放的對(duì)象, 也可以不用.//finalization最常用的情況是對(duì)OLE對(duì)象做反初始化.initialization ActiveX.OleInitialize(nil);finalization ActiveX.OleUninitialize;
//finally關(guān)鍵字指出了異常處理中最后必須要調(diào)用的方法, //不論是否發(fā)生異常, finally后的語(yǔ)句總是在try語(yǔ)句結(jié)束時(shí)執(zhí)行.try Node := Node.GetNext; Edit1.Text := Node.Text;finally Node := nil;end;
//For關(guān)鍵字引出For循環(huán)結(jié)構(gòu), 用于做指定次數(shù)的循環(huán).for i := 1 to 100 do sum := sum + i;//如果循環(huán)變量是遞減的, 則可以用DownTo關(guān)鍵字for i := 100 downto 1 do Inc(sum);
//Forward關(guān)鍵字用于方法的前置定義.只定義方法聲明, 然后在程序的后面對(duì)方法進(jìn)行實(shí)現(xiàn).//這么做有利于代碼的可讀性, 可以將所有的聲明放在一起, 然后將所有的實(shí)現(xiàn)也放在一起.function X(i: Integer): Integer; forward;procedure Y(s: string); forward;...function X;begin Result := i * 2;end;procedure Y;begin WriteLn(s);end;//用Forward前置聲明的方法在實(shí)現(xiàn)時(shí)不需要再輸入方法的參數(shù)和返回值, 直接使用方法名即可.
//Function用于聲明函數(shù)function X(i: Integer): Integer;//它也可以用于動(dòng)態(tài)函數(shù)的聲明type TFun = function(i: Integer): Integer of object;//動(dòng)態(tài)聲明時(shí), 不需要指出函數(shù)名, 只需要指出參數(shù)和返回類型就可以, 具體的函數(shù)名可以在后期綁定.
//Goto語(yǔ)句用在跳轉(zhuǎn)行號(hào), 可以跳轉(zhuǎn)到當(dāng)前結(jié)構(gòu)層內(nèi)任意位置.//必須在聲明處用label關(guān)鍵字聲明行號(hào).//由于Goto語(yǔ)句會(huì)破壞程序的結(jié)構(gòu), 不推薦使用.var a,b: Integer;label X,Y;begin if a > b then goto X else goto Y;X: WriteLn('a > b');Y: WriteLn('b > a');end;
//If關(guān)鍵字引出If條件語(yǔ)句, 用于對(duì)條件進(jìn)行判斷.var a,b: Integer;begin a := 2; b := 3; if a>b then WriteLn('a=' + IntToStr(a)) else WriteLn('b=' + IntToStr(b));end;//If語(yǔ)句的通常結(jié)構(gòu)是If...Then...else, else語(yǔ)句也可以不要.//在If語(yǔ)句內(nèi)如果有多個(gè)子語(yǔ)句, 則必須用begin...End結(jié)構(gòu)進(jìn)行區(qū)分.if a > b thenbegin WriteLn('a>b'); WriteLn('a=' + IntToStr(a)); WriteLn('b=' + IntToStr(b));Endelse WriteLn('b>a');
//Implementation標(biāo)識(shí)了單元中的實(shí)現(xiàn)部分, 單元的基本結(jié)構(gòu)為://Unit...Interface...implementation...end.//函數(shù)體, 過(guò)程體等必須寫在implementation關(guān)鍵字后.//如果在implementation后引用對(duì)象, 則對(duì)象是非公開的, 僅能供單元自身使用.implementation uses frmAbout;begin FormAbout.Show;end;//一個(gè)完整的單元必須擁有implementation部分.
//Implements指出了一個(gè)屬性從接口繼承, 此時(shí)屬性被轉(zhuǎn)換成接口對(duì)象.//通過(guò)接口動(dòng)態(tài)綁定屬性, 并動(dòng)態(tài)的設(shè)定屬性值.type IMyInterface = interface procedure P1; procedure P2; end; TMyImplclass = class procedure P1; procedure P2; end; TMyclass = class(TInterfacedObject, IMyInterface) FMyImplClass: TMyImplClass; property MyImplClass: TMyImplclass read FMyImplclass implements IMyInterface; procedure IMyInterface.P1 = MyP1; procedure MyP1; end;//通過(guò)implements聲明后, 可以在類聲明時(shí)指出接口中方法的實(shí)體, 如上例中的:procedure IMyInterface.P1 = MyP1;
//In用于判斷一個(gè)集合中是否包含某個(gè)元素.被判斷的內(nèi)容必須是單個(gè)集合元素和一個(gè)集合的實(shí)例.type TCol = (cA,cB,cC); TCols = set of TCol;var Cols: TCols;begin Cols := [cA,cB]; if cA in Cols then ShowMessage('cA in Cols') else ShowMessage('cA not in Cols');end;//In也用于工程文件中, 用于標(biāo)識(shí)某個(gè)文件是否被工程所引用.Uses Unit1 in 'Unit1.pas';//In可以被用在For語(yǔ)句中, 用于循環(huán)取出一個(gè)集合中的元素.var s: string; sl: TStringList;begin ... for s In sl do begin ShowMessage(s); end;end;
//Index用于在屬性中標(biāo)識(shí)序號(hào), 以便用相同的屬性方法(Get,Set)對(duì)不同的屬性進(jìn)行操作.type TForm1 = class(TForm) private function GetInfo(const Index: Integer): Longint; procedure SetInfo(const Index: Integer; const Value: Longint); public property iLeft:Longint index 0 read GetInfo write SetInfo; property iTop:Longint index 1 read GetInfo write SetInfo; property iWidth:Longint index 2 read GetInfo write SetInfo; property iHeight:Longint index 3 read GetInfo write SetInfo; end;function TForm1.GetInfo(const Index: Integer): Longint;begin case Index of 0: result := self.Left; 1: Result := self.Top; 2: result := self.Width; 3: result := self.Height; end;end;//Index關(guān)鍵字也用于在屬性中指出多個(gè)元素, 例如:property Selected[Index: Integer]: Boolean read GetSelected write SetSelected;
//Inherited用于調(diào)用父類的方法.type TDemo = class(TComponent) public constructor Create(AOwner: TComponent); override; end;constructor TDemo.Create(AOwner: TComponent);begin inherited Create(AOwner);end;//如果調(diào)用的是與自身同名的方法, 則也可以省去方法名和參數(shù).如上例中的inherited Create(AOwner);//可以改成:Inherited;
//initialization關(guān)鍵字標(biāo)識(shí)了單元被載入時(shí)所要調(diào)用的方法, //通常是初始化一些不能自動(dòng)初始化的對(duì)象, 也可以不用.//initialization最常用的情況是對(duì)OLE對(duì)象做初始化.initialization ActiveX.OleInitialize(nil);finalization ActiveX.OleUninitialize;
//InLine關(guān)鍵字用于Asm或assembler結(jié)構(gòu)中, //用于指出該匯編語(yǔ)句是向下兼容的.它對(duì)于程序的編譯沒有任何影響.function IntToStr(Value: Integer): string;asm InLine; PUSH ESI MOV ESI, ESP SUB ESP, 16 xor ECX, ECX PUSH EDX xor EDX, EDX CALL CvtInt MOV EDX, ESI POP EAX CALL System.@LStrFromPCharLen ADD ESP, 16 POP ESIend;
//Interface標(biāo)識(shí)了單元中的接口部分, 單元的基本結(jié)構(gòu)為://Unit...Interface...implementation...end.//函數(shù), 過(guò)程等的聲明必須寫在Interface關(guān)鍵字后.//如果在Interface后引用對(duì)象, 則對(duì)象是沒有實(shí)例的, 使用時(shí)必須被實(shí)例化.Interface uses frmAbout;var FAbout: TFormAbout;begin FAbout :＝ TFormAbout.Create(Self); FAbout.Show;end;//一個(gè)完整的單元必須擁有Interface部分.//Interface也可以用作接口的聲明.type IMalloc = interface(IInterface) ['{00000002-0000-0000-C000-000000000046}'] function Alloc(Size: Integer): Pointer; stdcall; function Realloc(P: Pointer; Size: Integer): Pointer; stdcall; procedure Free(P: Pointer); stdcall; function GetSize(P: Pointer): Integer; stdcall; function DidAlloc(P: Pointer): Integer; stdcall; procedure HeapMinimize; stdcall; end;
//Is關(guān)鍵字用于對(duì)象的判斷, 有某些情況下, 也可以作"As"使用.var Comp: TComponent;begin ... if Comp Is TEdit then (Comp as TEdit).Text := 'Edit';end;
//label關(guān)鍵字用于聲明行號(hào)標(biāo)簽, 以便用Goto進(jìn)行轉(zhuǎn)向, 不推薦使用.var a,b: Integer;label X,Y;begin if a > b then goto X else goto Y;X: WriteLn('a>b');Y: WriteLn('b>a');end;
//Library關(guān)鍵字用于指出一個(gè)工程為類庫(kù).類庫(kù)編譯后生成DLL文件, 可被其他程序調(diào)用.library Editors;uses EdInit, EdInOut, EdFormat, EdPrint;exports InitEditors, doneEditors name done, InsertText name Insert, DeleteSelection name Delete, FormatSelection, PrintSelection name Print, SetErrorHandler;begin InitLibrary;end.
//Message關(guān)鍵字用于聲明消息方法, //帶有Message的方法必須指出接收的消息類型, 并通過(guò)引用將消息傳入方法中, 以便進(jìn)行處理.procedure Refresh(var Msg: TMessageRecordtype); message ID_REFRESH;procedure Refresh(var Msg: TMessageRecordtype);begin if Chr(Msg.Code) = #13 then ... else inherited;end;//用戶可以自定義消息, 自定義消息也能夠被Message接收, 并引發(fā)事件.
//Mod用于求兩數(shù)之整數(shù)模, 即余數(shù).用于Mod運(yùn)算的兩個(gè)數(shù)值必須均為整型, 其運(yùn)算結(jié)果也為整型.var a,b,c: Integer;begin a := 20; b := 3; c := a mod b; {2}end;
//Name關(guān)鍵字用于指出方法的別名, //對(duì)于一個(gè)要被外部引用的方法, 建議用Name申請(qǐng)方法別名, 以避免外部程序改動(dòng)方法的實(shí)體內(nèi)容.//從外部引用一個(gè)方法時(shí), 如果該方法有別名, 則必須用Name進(jìn)行標(biāo)識(shí).function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; stdcall; external 'user32.dll' name 'MessageBoxA';
//Near標(biāo)明了函數(shù)調(diào)用協(xié)定, 指出函數(shù)可以被本地調(diào)用.//其他程序可以用dll的形式調(diào)用程序內(nèi)的函數(shù).它是向下兼容的.function Add(a,b: Integer): Integer; near;//如果這個(gè)程序被編譯為Demo.exe, 并且另一個(gè)處于本地的程序需要調(diào)用這個(gè)函數(shù), 可以使用以下語(yǔ)句:function Add(a,b: Integer): Integer; stdcall; external 'Demo.exe';
//Nil用于表示一個(gè)空指針, 或是沒有實(shí)例的對(duì)象.while Node <> nil dobegin ListBox1.Items.Add(Node.Text); Node := Node.GetNext;end;
//NoDefault關(guān)鍵字指出了一個(gè)屬性不允許有默認(rèn)值, 這通常用在繼承中.type TClassA = class private fValue: Integer; published property Value: Integer read fValue write fValue default 0; end; TClassB = class(TClassA) published property Value:Integer read fValue write fValue nodefault; end;//由上例可知, TClassA中的Value有默認(rèn)值0, //TClassB繼承了TClassA, 所以也繼承了其默認(rèn)值, 在此用NoDefault去掉默認(rèn)值
//Not用于取反, 它否定了原先的結(jié)果.例如:if a > b then//可以寫成:if not(a < b) then//Not關(guān)鍵字通常用于切換Boolean型的屬性procedure Button1Click(Sender: TObject);begin StatusBar1.Visible := not StatusBar1.Visible;end;
//Object用于聲明一個(gè)對(duì)象, 這個(gè)對(duì)象可以是任意的, 并且向下兼容.Object只能被Object所繼承.//聲明對(duì)象的方法與聲明類的方法是相同的.type ODemoA = object end; ODemoB = object(ODemoA) end;//Object關(guān)鍵字還用于聲明動(dòng)態(tài)函數(shù)或過(guò)程, 例如:type TMyFun = function(i: Integer): Integer of Object; TMyProc = procedure(s: string) of object;//經(jīng)過(guò)object聲明的函數(shù)或過(guò)程可以被動(dòng)態(tài)的綁定到指定的函數(shù)體, 或是綁定到控件是事件中.
//Of關(guān)鍵用于和其他關(guān)鍵字構(gòu)成指定的結(jié)構(gòu).Of可以與Case, Class, Array, File, Set, Object連用.//Case語(yǔ)句:case Tag Of 0: Result := 'a'; 1: Result := 'b';end;//Class語(yǔ)句:type TDemo = class of TComponent;//Array結(jié)構(gòu):var MyInt: array of Integer;//File結(jié)構(gòu):var MyFile: file of Byte;//Set語(yǔ)句:type TCol = (cA,cB,cC); TCols = set of TCol;//Object結(jié)構(gòu):type MyFun = function(I: Integer): Integer of Object;
//On關(guān)鍵字用于異常處理, 指出發(fā)生的異常, 并獲取異常信息.try i := StrToInt(s);except on E: exception do ShowMessage(E.Message);end;
//一、表示邏輯或if (a>0) or (b>0) then//二、表示位運(yùn)算var a,b,c: Integer;begin c := (a or b);end;//使用Or表示邏輯時(shí), Or左右的表達(dá)式必須用小括號(hào)括起, 以避免以生條件的沖突//如果在條件語(yǔ)句中使用 Or, 則編輯器不知道用戶使用Or做什么例如:if a>0 or b>0 then//編譯器可能會(huì)理解為:if a>(0 or b)>0 then//或者if (a>0) or (b>0) then//但是實(shí)際編譯時(shí), 編譯器會(huì)產(chǎn)生一個(gè)沖突, 報(bào)告錯(cuò)誤//并且第一種可能包含了a>b>c的形式, 這在Delphi中不被支持//所以使用Or運(yùn)算符時(shí)必須使用括號(hào), 以區(qū)分左右的條件.//表示位運(yùn)算時(shí)也必須加上括號(hào), 將Or以及左右參數(shù)括起.
//Out關(guān)鍵字說(shuō)明了方法參數(shù)的輸出方式, 一般的函數(shù)只能有一個(gè)返回值, //使用Out可以在一個(gè)函數(shù)中返回多個(gè)結(jié)果.//Out和var不同, Out是以返回值的形式進(jìn)行參數(shù)返回, 而var是直接輸入一個(gè)參數(shù)的地址.procedure X(out i: Integer; out s: string);begin i := i * 2; s := s + 'abc';end;procedure TForm1.Button1Click(Sender: TObject);var i: Integer; s: string;begin i := 20; s := 'xxx'; X(i,s);end;
//Overload關(guān)鍵字指出了用于重載的方法, 重載即方法名相同, //但是參數(shù)數(shù)量, 類型或順序不同, 滿足此條件的構(gòu)成重載.function X(i: Integer): string; overload;function X(s: string): string; overload;//從父類繼承時(shí), 如果子類擁有和父類相同的方法, 則也必須用overload構(gòu)成重載, //但是此類重載也必須滿足重載的要求.type TDemo = class(TComponent) public procedure CreateWnd(AOwner: TWinControl); overload; end;//如上例, 子類擁有的方法為:procedure CreateWnd; {繼承自父類}procedure CreateWnd(AOwner: TWinControl); {子類聲明}//共兩個(gè)CreateWnd方法.//如果不使用重載, 則在子類中可以覆蓋父類的方法.
//Override用于覆蓋一個(gè)Virtual或是Dynamic形式的方法.//覆蓋時(shí)必須沿用被覆蓋方法的聲明, 并且不允許修改原方法的參數(shù)和返回類型.procedure Create(AOwner: TComponent); override;//Override多用于繼承, 用子類覆蓋掉父類的方法.type TClassA = class procedure X; virtual; end; TClassB = class(TClassA) procedure X; override; end;//如上例, 子類擁有的方法為:procedure X; {從父類覆蓋}//父類擁有的方法為:procedure X; {父類自身方法, 未被覆蓋}//如果父類的方法未用Virtual或Dynamic聲明, //或是有修改參數(shù)的需要, 則必須用Reintroduce關(guān)鍵字進(jìn)行覆蓋.
//Package關(guān)鍵字用于指出一個(gè)工程為控件庫(kù).//控件庫(kù)編譯后生成BPL文件, 可被安裝到Delphi的控件庫(kù)中, 從而在以后的開發(fā)中使用控件.package DATAX; requires rtl, clx; contains MyUnit in 'C:\MyProject\MyUnit.pas';end.
//Packed關(guān)鍵字用于對(duì)結(jié)構(gòu)體記錄或數(shù)組進(jìn)行打包, 打包后被打包對(duì)象的體積能顯著減小.type TPerson = packed Record PName: string[32]; PAge: Integer; end; MyArray: packed array of PChar;
//Pascal標(biāo)明了函數(shù)調(diào)用協(xié)定, //指出函數(shù)在調(diào)用時(shí)遵循Pascal原因, 即先對(duì)所有的變量進(jìn)行初始化, //避免因異步線程調(diào)用而產(chǎn)生的錯(cuò)誤.它是向下兼容的.function X(i: Integer): Integer; Pascal;begin Result := i * 2;end;
//Private標(biāo)明了類內(nèi)元素的訪問(wèn)區(qū)分權(quán)限, 被Private區(qū)分的元素只能被本類內(nèi)部訪問(wèn).
//Procedure用于聲明過(guò)程procedure X(i: Integer);//它也可以用于動(dòng)態(tài)函數(shù)的聲明type TProc = procedure(i: Integer) of object;//動(dòng)態(tài)聲明時(shí), 不需要指出過(guò)程名, 只需要指出參數(shù)就可以, 具體的過(guò)程名可以在后期綁定.
//Program關(guān)鍵字用于指出一個(gè)工程為應(yīng)用程序.控件庫(kù)編譯后生成exe文件, 可以直接執(zhí)行program Project1;uses Forms, Unit1 in 'Unit1.pas' ;{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;end.
//Property關(guān)鍵字用于聲明屬性, 屬性分為顯式屬性和隱式屬性兩種, //只有聲明在published訪問(wèn)區(qū)分符下的屬性才是顯式屬性, 可以直接在對(duì)象查看器中查看.type TDemo = class Private fValue: Integr; Published property Value: Integer read fValue write fValue; end;//事件也是屬性的一種, 可以在published區(qū)分符下用Property進(jìn)行聲明type TOnTextChange=procedure (Sender: TObject) of object; TDemo = class private fEvent: TOnTexChange; published property OntextChange: TOnTextChange read fEvent write fEvent; end;
//Protected標(biāo)明了類內(nèi)元素的訪問(wèn)區(qū)分權(quán)限, 被Protected區(qū)分的元素只能被本類內(nèi)部和其子類訪問(wèn).
//Public標(biāo)明了類內(nèi)元素的訪問(wèn)區(qū)分權(quán)限, 被Public區(qū)分的元素能夠被類內(nèi)和類外任何對(duì)象訪問(wèn).
//Published標(biāo)明了類內(nèi)元素的訪問(wèn)區(qū)分權(quán)限.//被Published區(qū)分的元素能夠被類內(nèi)和類外任何RTTI對(duì)象訪問(wèn)//只在聲明在Published區(qū)分符下的屬性才能夠成為顯式屬性并在對(duì)象查看器中顯示.
//Raise語(yǔ)句用于拋出異常, //如果希望通過(guò)外部程序處理異常, 或是在異常發(fā)生時(shí)重新將異常拋出, 可以使用Raise語(yǔ)句.function GetString(i: Integer): string;begin if i < 0 then raise exception.Create('Integer Cannot smaller than 0'); Result := IntToStr(i);end;//在異常處理中, 可以重新拋出異常try i := StrToInt(s);except on E: exception do raise exception.Create(E.Message);end;
//Read用于標(biāo)識(shí)屬性中讀取所使用的成員或方法.private fValue: Integer;published property Value: Integer read fValue;//上例中即表明Value屬性的值從fValue成員上讀取.
//ReadOnly關(guān)鍵字用于標(biāo)識(shí)一個(gè)對(duì)象是否只讀.property ReadOnly;//當(dāng)ReadOnly設(shè)為True時(shí), 不允許用戶手動(dòng)修改屬性, 只能通過(guò)其他對(duì)象來(lái)操作.
//Record關(guān)鍵字用于聲明一個(gè)結(jié)構(gòu)體記錄, //一個(gè)結(jié)構(gòu)體可以視為一個(gè)不需要實(shí)例化的對(duì)象, 擁有自己的成員.type TPerson = record PName: string[32]; PAge: Integer; end;
//Register標(biāo)明了函數(shù)調(diào)用協(xié)定, 指出函數(shù)在被調(diào)用時(shí)可以在注冊(cè)表內(nèi)留下記錄.它是向下兼容的.function Add(a,b: Integer): Integer; Register; Register//關(guān)鍵字還用于向控件庫(kù)或是IDE注冊(cè)控件或是專家工具.procedure Register;begin RegisterComponents('Sample', [TDemo]);end;
//Reintroduce用于重新發(fā)布方法, 通常用于繼承時(shí), //如果要覆蓋的方法是靜態(tài)方法, 或是需要修改方法的參數(shù)等, 必須用Reintroduce進(jìn)行重發(fā)布.//對(duì)于Virtual或Dynamic方法, 可以直接用Override進(jìn)行覆蓋.type TClassA = class procedure X; end; TClassB = class(TClassA) procedure X; reintroduce; end; TClassC = class(TClassB) procedure X(i: Integer); reintroduce; end;
//repeat關(guān)鍵字用于引出repeat循環(huán)結(jié)構(gòu), //該循環(huán)必須先執(zhí)行一次循環(huán)體, 然后再對(duì)循環(huán)條件進(jìn)行判斷.repeat必須與Until關(guān)鍵字聯(lián)合使用.i := 0;repeat sum := sum + i; Inc(i);until(i >= 100);
//Requires關(guān)鍵字指出了編譯Package時(shí)的必備條件.若Requires的條件未滿足, 則不允許編譯包.package DATAX; requires rtl, clx;end.
//ResourceString用于聲明資源字符串, 資源字符串可以在被聲明的結(jié)構(gòu)內(nèi)使用.ResourceString CreateError = 'Cannot create file %s'; OpenError = 'Cannot open file %s'; LineTooLong = 'Line too long'; ProductName = 'Borland Rocks'; SomeResourceString = SomeTrueConstant;
//Safecall是函數(shù)調(diào)用協(xié)定的一種, 它規(guī)定了被COM調(diào)用的函數(shù)所必須遵守和規(guī)則.//在編譯時(shí), Safecall聲明的函數(shù)被編譯成COM接口兼容的.procedure X(s: WideString); safecall;//在編譯后成為:procedure X(s: PAnsiString);
//Set關(guān)鍵字用于聲明集合類, 集合類允許用集合運(yùn)算符, 如in等進(jìn)行操作.type TCol = (cA,cB,cC); TCols = set of TCol;//操作時(shí)允許使用加減符號(hào)來(lái)添加或刪除某個(gè)集合元素var Cols: Tcols;begin Cols := Cols + [cA,cB];end;
//SHL表示向左移位, 左移的位數(shù)即乘以2的冪數(shù)var x: Integer;begin X := 2 shl 3; {16}end;
//SHR表示向右移位, 右移的位數(shù)即除以2的冪數(shù)var x: Integer;begin X := 16 shr 2; {4}end;
//Stdcall是函數(shù)調(diào)用協(xié)定的一種, 它規(guī)定了能讓程序調(diào)用的函數(shù)所應(yīng)遵守的規(guī)則.//Stdcall關(guān)鍵字必須在主調(diào)方和被調(diào)方之間形成配對(duì).//例如, 被調(diào)方函數(shù):Library Demo;function X(i: Integer): Integer; stdcall;begin Result := i * 2;end;exports X;beginend.//主調(diào)方函數(shù):function X(i: Integer): Integer; stdcall; external 'Demo.dll';//同時(shí)需要注意, 使用Stdcall關(guān)鍵字時(shí), 被調(diào)函數(shù)是大小寫敏感的, 此處極容易出錯(cuò).
//Stored用于指出一個(gè)屬性的值是否能被保留, 若指定了True, 則允許對(duì)屬性值進(jìn)行賦值撤銷的操作.property Value: string read fValue write fValue stored True;
//String是一個(gè)數(shù)據(jù)類型, 它代表了字符串.var Str: string;
//Then關(guān)鍵字用于If語(yǔ)句中, 當(dāng)If條件成立時(shí), 執(zhí)行Then后的語(yǔ)句.var a,b: Integer;begin if a > b then WriteLn('a') else WriteLn('b');end;
//Threadvar標(biāo)識(shí)了一個(gè)隨線程啟動(dòng)而創(chuàng)建的變量, //如果用Threadvar聲明變量, 則在程序結(jié)束前必須手動(dòng)釋放其占用的空間.threadvar S: AnsiString;S := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';S := '';//S := ''; 即釋放變量S所占用的內(nèi)存.
//To關(guān)鍵字用于For語(yǔ)句, 指明循環(huán)變量是遞增的.for i := 10 to 100 do ListBox1.Items.Add(IntToStr(i));//在For語(yǔ)句中, 循環(huán)變量遞增用To關(guān)鍵字, 遞減用DownTo關(guān)鍵字.
//try語(yǔ)句用于異常處理, 對(duì)于有可能發(fā)生異常的語(yǔ)句, 可以放在try結(jié)構(gòu)下, 以便對(duì)其進(jìn)行異常保護(hù).try i := StrToInt(s);except ShowMessage('Error');end;
//Type關(guān)鍵字用于聲明各種對(duì)象, 用Type關(guān)鍵字聲明的對(duì)象, 在傳遞時(shí)按引用傳遞.type TDemo = class end;//type也用來(lái)聲明枚舉類型或是按引用傳遞的變量.type TCol = (cA,cB,cC); TInt = Integer;
//Unit標(biāo)識(shí)了單元的開頭, 單元的基本結(jié)構(gòu)為 Unit...Interface...implementation...end.Unit Unit1;Interface uses Classes;implementationend.//一個(gè)完整的單元必須擁有Unit作為開頭.
//Until關(guān)鍵字用于判斷repeat循環(huán)結(jié)構(gòu)的循環(huán)條件, //如果循環(huán)條件為真, 則退出循環(huán).Until必須與repeat關(guān)鍵字聯(lián)合使用.i := 0;repeat sum := sum + i; Inc(i);until(i >= 100);
//Uses用于引用一個(gè)外部的單元, 并且能夠使用該單元中的公共部分.//Uses語(yǔ)句通常放在一個(gè)單元的接口或是實(shí)現(xiàn)部分.Interface uses Classes;Implemention uses frmAbout;
//var關(guān)鍵字用于聲明一個(gè)變量或是對(duì)象, 用var聲明的變量接值傳遞.var i: Integer; s: string;//var也可以用于標(biāo)識(shí)按引用傳遞的方法參數(shù)function X(var i: Integer): Integer;//上述函數(shù)中的參數(shù)i即按引用傳遞, 它的值可以在函數(shù)執(zhí)行時(shí)被改變, 并返回主調(diào)函數(shù).
//varArgs標(biāo)識(shí)了引用參數(shù), 它必須和Cdecl關(guān)鍵字聯(lián)用, 表明允許調(diào)用的函數(shù)使用引用傳遞.function printf(Format: PChar): Integer; cdecl; varargs;//上述代碼從C++的類庫(kù)中引用了Printf函數(shù), 并允許按引用的方式傳入?yún)?shù).
//Virtual用于聲明一個(gè)虛方法, //虛方法可以被覆蓋, 并且可以使程序運(yùn)行速度盡可能的快(區(qū)別于Dynamic).procedure X(i: Integer); virtual;
//While關(guān)鍵字用于引出While循環(huán)語(yǔ)句, 循環(huán)前先進(jìn)行循環(huán)條件的判斷, 如果條件為真則執(zhí)行循環(huán).i := 0;while i < 100 dobegin sum := sum + i; Inc(i);end;
//With關(guān)鍵字用于將相同的對(duì)象集合起來(lái)處理, 它可以省去輸入大量重復(fù)的代碼, 使代碼看上去比較精簡(jiǎn).with Form1.Memo1.Lines dobegin Clear; Append('abc'); Append('def'); SaveToFile('C:\demo.txt');end;//上面這段代碼如果不使用With語(yǔ)句, 則顯得非常冗余復(fù)制內(nèi)容到剪貼板代碼:Form1.Memo1.Lines.Clear;Form1.Memo1.Lines.Append('abc');Form1.Memo1.Lines.Append('def');Form1.Memo1.Lines.SaveToFile('C:\demo.txt');
//Write用于標(biāo)識(shí)屬性中寫入所使用的成員或方法.private fValue: Integer;published property Value: Integer write fValue;//上例中即表明Value屬性的值寫入到fValue成員上.
//writeonly關(guān)鍵字用于標(biāo)識(shí)一個(gè)對(duì)象是否只寫.property writeonly;//當(dāng)writeonly設(shè)為True時(shí), 不允許用戶讀取屬性, 只能通過(guò)其他對(duì)象來(lái)操作.
//Xor用于取異或, 當(dāng)兩個(gè)操作數(shù)相等時(shí), 返回False, 不等時(shí)返回True.var a,b: Integer;begin a := 2; b := 3; if a xor b then WriteLn('a xor b') else WriteLn('a not xor b');end;//Xor也用于計(jì)算異或值WriteLn(IntToStr(3 xor 5)); {6}
微信登錄中...請(qǐng)勿關(guān)閉此頁(yè)面
