Delphi編程入門(mén)講解

1、Delphi歷史Delphi特性Delphi 7開(kāi)發(fā)環(huán)境介紹面向?qū)ο蟪绦蛟O(shè)計(jì)（OOP）Object Pascal基本語(yǔ)法1995年 delphi1發(fā)布1996年 delphi 2發(fā)布1999年 delphi5發(fā)布2002年 delphi7發(fā)布2007年 delphi2007發(fā)布2010年 delphi2010發(fā)布快速開(kāi)發(fā)工具最好的C/S程序開(kāi)發(fā)工具支持各種程序的開(kāi)發(fā)Win32原生程序快速開(kāi)發(fā)工具delphi語(yǔ)法：Object Pascal，是一種面向?qū)ο蟮挠?jì)算機(jī)語(yǔ)言， 程序語(yǔ)法嚴(yán)謹(jǐn)，易學(xué)易用。VCL庫(kù)：提供豐富的可視化組件庫(kù)，程序人員可根據(jù)需要直接進(jìn)行調(diào)用。 IDE開(kāi)發(fā)環(huán)境：集編碼、設(shè)計(jì)、調(diào)試

2、如一身，大大方便了程序的開(kāi)發(fā)調(diào)試。最好的C/S程序開(kāi)發(fā)工具支持所有的常用數(shù)據(jù)庫(kù)可開(kāi)發(fā)兩層結(jié)構(gòu)、三層結(jié)構(gòu)的管理軟件非常棒的VCL控件支持開(kāi)發(fā)的程序易于發(fā)布支持各種程序的開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)網(wǎng)絡(luò)應(yīng)用軟件的開(kāi)發(fā)游戲軟件的開(kāi)發(fā)其它應(yīng)用軟件文件類(lèi)型pas：?jiǎn)卧募fm：窗體文件dpr：項(xiàng)目文件dpl：壓縮庫(kù)文件dpk：包文件res：資源文件dcu：編譯文件定制工具欄ViewToolbarsCustomize常用工具按鈕介紹定制代碼編輯器ToolsEditor Properties保存定制開(kāi)發(fā)環(huán)境ViewDesktopSave Desktop項(xiàng)目目錄設(shè)置ProjectOptions組件庫(kù)路徑設(shè)置To

3、olsEnvironment Options從當(dāng)前工程已有基類(lèi)繼承斷點(diǎn)設(shè)置與調(diào)試常用快捷鍵F3：繼續(xù)查找F4：運(yùn)行程序至光標(biāo)處F5：設(shè)置斷點(diǎn)F7：跟蹤調(diào)試F8：?jiǎn)尾秸{(diào)試F9：運(yùn)行程序F11：在Form/Unit和Object Inspector(對(duì)象查看器)之間切換F12：在Form和Unit之間切換Ctrl+F9：編譯Ctrl+Alt+F11：彈出Project Options(工程管理器)Ctrl+Shift+上/下方向鍵：在過(guò)程的聲明和實(shí)現(xiàn)間切換Ctrl+J：插入標(biāo)準(zhǔn)語(yǔ)法代碼Ctrl+Shift+U,Ctrl+Shift+I：將所選擇的代碼整體右移或者左移Ctrl+Shift+C：完成已

4、聲明類(lèi)的實(shí)現(xiàn)Shift+Alt+F11：對(duì)象樹(shù)狀視圖運(yùn)算符常量和變量過(guò)程和函數(shù)數(shù)據(jù)類(lèi)型程序流程控制單元的組織結(jié)構(gòu)一、運(yùn)算符1、賦值運(yùn)算符運(yùn)算符運(yùn)算符PascalPascalC/C+C/C+JavaJava賦值:=2、比較運(yùn)算符運(yùn)算符運(yùn)算符PascalPascalC/C+C/C+JavaJava等于=不等于!=!=小于小于等于=3、邏輯運(yùn)算符運(yùn)算符運(yùn)算符PascalPascalC/C+C/C+JavaJava與and&或or|非not!4、算術(shù)運(yùn)算符運(yùn)算符運(yùn)算符PascalPascalC/C+C/C+JavaJava加+減-乘*除(浮點(diǎn)數(shù))/除(整數(shù))div/取模mod%5、按位運(yùn)算符運(yùn)

5、算符運(yùn)算符PascalPascalC/C+C/C+JavaJava與and&取反not或or|異或xor左移shl6、其他運(yùn)算 對(duì)象類(lèi)型的轉(zhuǎn)化： a、使用is進(jìn)行類(lèi)型兼容性判斷，然后用as轉(zhuǎn)化b、使用Tobject.InheritsFrom代替is運(yùn)算符二、常量與變量1、聲明常量：const變量：var2、有類(lèi)型常量和無(wú)類(lèi)型常量const i = 5; ErrMsg = 被除不能為0; s: String=123456;3、全局變量和局部變量注：全局變量可指定初始值，但局部變量不可以三、過(guò)程與函數(shù)區(qū)別：函數(shù)，有返回值；過(guò)程，無(wú)返回值。聲明：函數(shù)，function；過(guò)程，procedur

6、e。原則：先聲明，后使用。參數(shù)值傳遞與參數(shù)地址傳遞參數(shù)值傳遞：procedure ChangeMsg(s: String);參數(shù)地址傳遞：procedure ChangeMsg(var s: String);procedure TForm1.btn1Click(Sender: TObject);var Str: string;begin Str := StrVar; ChangeMsg1(Str); ShowMessage(Str); /StrVar ChangeMsg2(Str); ShowMessage(Str); /StrVarisChangedend;procedure TForm1.

7、ChangeMsg1(s: String);begin s := s+isChanged;end;procedure TForm1.ChangeMsg2(var s: String);begin s := s+isChanged;end;OUT參數(shù)輸出參數(shù)，它傳遞的也是一個(gè)引用。然而，對(duì)于OUT參數(shù)，將其傳遞到過(guò)程/函數(shù)中時(shí)，初始量會(huì)被丟棄。procedure TForm1.btn1Click(Sender: TObject);var Str: string;begin Str := Message; ChangeMsg3(Str); ShowMessage(Str); /Changedend

8、;procedure TForm1.ChangeMsg3(out s: String);begin ShowMessage(s); /顯示空字符串 s := Changed;end;四、數(shù)據(jù)類(lèi)型常用類(lèi)型： 復(fù)雜類(lèi)型：整數(shù)(integer) 集合(Set)實(shí)數(shù)(Real) 數(shù)組(Array)布爾(Boolean) 記錄(Record)字符(串)(Char,String) 文件(File)枚舉(Enumerated)類(lèi)(Class)子界(Subrange)接口(Interface)可變類(lèi)型(Variant)枚舉數(shù)據(jù)類(lèi)型1、定義2、枚舉數(shù)據(jù)類(lèi)型特點(diǎn)u枚舉元素只能是標(biāo)識(shí)符 type days=(sun

9、,mon,tue,wed,thu,fri,sat); colors=(red,yellow,blue,white,black,green); var Week: days; FormColor: colors; type colortype=(red,yellow,blue,white); numbers=(1,3,5,7,9);u枚舉類(lèi)型屬于順序類(lèi)型根據(jù)定義類(lèi)型時(shí)各枚舉元素的排列順序確定它們的序號(hào)，且序號(hào)從0開(kāi)始。例如：type days=(sun,mon,tue,wed,thu,fri,sat);則： ord(sun)=0,ord(mon)=1,，以此類(lèi)推。枚舉類(lèi)型中的第一個(gè)元素?zé)o前趨，最

10、后一個(gè)元素?zé)o后繼。 pred(sat)=fri; succ(sun)=mon; ord(sat)=6;u同一個(gè)枚舉元素不能出現(xiàn)在兩個(gè)或兩個(gè)以上的枚舉類(lèi)型定義中type color1=(red,yellow,white); color2=(blue,red,black);u枚舉類(lèi)型變量只能進(jìn)行賦值運(yùn)算和關(guān)系運(yùn)算，不能進(jìn)行算術(shù)運(yùn)算和邏輯運(yùn)算。在枚舉元素比較時(shí)，實(shí)際上是對(duì)其序號(hào)的比較。例如：type days=(sun,mon,tue,wed,thu,fri,sat); colors=(red,yellow,blue,white,black,green);var color:colors; week

11、day:days;則下面語(yǔ)句是合法的: weekday:=mon; if weekday=sun then ShowMessage();3、枚舉數(shù)據(jù)類(lèi)型的應(yīng)用子界數(shù)據(jù)類(lèi)型介紹1、定義及定義規(guī)則 type 子界類(lèi)型標(biāo)識(shí)符=常量1.常量2 常量1稱(chēng)為子界的下界，常量2稱(chēng)為子界的上界；下界和上界必須是同一順序類(lèi)型（該類(lèi)型稱(chēng)為子界類(lèi)型的基類(lèi)型），且上界的序號(hào)必須大于下界的序號(hào)。如： type age=1.100; letter=a .z;可以直接在變量說(shuō)明中定義子界類(lèi)型。如：type letter=a. z ; var ch1,ch2:letter; var ch1,ch2:a.z;2、子界類(lèi)型數(shù)據(jù)的

12、運(yùn)算規(guī)則 凡可使用基類(lèi)型的運(yùn)算規(guī)則同樣適用該類(lèi)型的子界類(lèi)型。 基類(lèi)型相同的不同子界類(lèi)型數(shù)據(jù)可以進(jìn)行混合運(yùn)算。 var liInt1: 1.10; liInt2: 10.20; liInt3: Integer; begin liInt1 := 5; liInt2 := 11; liInt3 := liInt1+liint2; ShowMessage(IntToStr(liInt3); end;集合數(shù)據(jù)類(lèi)型介紹1、定義type 集合類(lèi)型名稱(chēng) = Set of 基類(lèi)型;基類(lèi)型可以為：字符型、布爾型、枚舉型和子界型。例：type numbers = set of 0.9; ch = set of ch

13、ar; var n: numbers; c: ch; d: set of (sun,mon,tue,wed,thu,fri,sat);注：集合的元素個(gè)數(shù)不超過(guò)256個(gè)，因此 var s:set of integer; 是錯(cuò)誤的。2、集合的值 a、 集合的值放在一對(duì)方括號(hào)中，中間各元素之間用逗號(hào)隔開(kāi) 。如：1,2,5 和 a,e,i 都是集合。 b、 為空集。 c、在集合中，如果元素的值是連續(xù)的，則可用子界型的表示方法表示。例如：1,2,3,4,5, 10,15可以表示成： 1.5,10,15 d、集合的值與方括號(hào)內(nèi)元素出現(xiàn)的次序無(wú)關(guān)。例如1,5,8 和5,1,8的值相等。 e、在集合中同一元素

14、的重復(fù)出現(xiàn)對(duì)集合的值沒(méi)有影響。例如，1,8,5,1,8與1,5,8的值相等。 f、每個(gè)元素可用基類(lèi)型所允許的表達(dá)式來(lái)表示。如1,1+2、succ(ch)。3、集合的運(yùn)算集合類(lèi)型變量不能進(jìn)行算術(shù)運(yùn)算；集合是無(wú)序的，不能使用ord、pred、succ等函數(shù)。a、賦值運(yùn)算var liInt: set of 0.9; liInt := 0;b、集合的并、交、差運(yùn)算 var A: Set of X,Y,Z; B: Set of X; 并：A+B為X,Y,Z 交：A*B為X 差：A-B為Y,Zc、集合的關(guān)系運(yùn)算 關(guān)系運(yùn)算符： 相等“=”、不等“”、包含“=”、被包含“=”以及“IN”。 例：A,B=B,A

15、 True A,BB,A False A,B=B,A True A,B=B True A=A,B False A=A,B True A in A,B True4、集合的應(yīng)用Var Language: set of (English,German,France);procedure TForm1.chkEnglishClick(Sender: TObject);begin if (Sender as TCheckBox).Checked then Language := Language + English else Language := Language - English;end;proc

16、edure TForm1.btn1Click(Sender: TObject);begin if English = Language then ShowMessage(English被選中);end;數(shù)組數(shù)據(jù)類(lèi)型介紹1、靜態(tài)數(shù)組定義一維：數(shù)組名:array下標(biāo)類(lèi)型 of 元素類(lèi)型二維：數(shù)組名:array下標(biāo)類(lèi)型1, 下標(biāo)類(lèi)型2 of 元素類(lèi)型 2、動(dòng)態(tài)數(shù)組定義一維：數(shù)組名:array of 元素類(lèi)型二維：數(shù)組名:array of array of 元素類(lèi)型注：動(dòng)態(tài)數(shù)組定義后需分配內(nèi)存空間 SetLength(動(dòng)態(tài)數(shù)組名,數(shù)組長(zhǎng)度,數(shù)組長(zhǎng)度)3、數(shù)組應(yīng)用const MyArray: array

17、 0.2 of string = (English,German,France);var i: Integer;begin for i:=Low(MyArray) to High(MyArray) do ShowMessage(MyArrayi);end;var MyArray: array of array of Integer; i,j: Integer;begin SetLength(MyArray,2,2); for i:=Low(MyArray) to High(Myarray) do begin for j:=Low(MyArray) to High(MyArray) do beg

18、in MyArrayi,j := Random(10); end; end;end;記錄數(shù)據(jù)類(lèi)型介紹1、定義 type 類(lèi)型標(biāo)識(shí)符=record 變量標(biāo)識(shí)符1:類(lèi)型; 變量標(biāo)識(shí)符2:類(lèi)型; : : : : 變量標(biāo)識(shí)符n:類(lèi)型; end;2、記錄類(lèi)型應(yīng)用type Students = record name: String20; age: 6.30; case className: Char of /變體記錄，共享內(nèi)存 A:(English: Real); B:(Math:Real); end;var Stu1,Stu2: Students;begin S := 張三; Stu1

19、.age := 13; Stu1.className := A; Stu1.English := 88.2; ShowMessage(FloatToStr(Stu1.Math); /88.2end;五、程序流程控制條件語(yǔ)句：循環(huán)語(yǔ)句：控制語(yǔ)句：Break： 跳出當(dāng)前循環(huán)。Continue： 結(jié)束本次循環(huán)，執(zhí)行下一次循環(huán)。Exit：退出當(dāng)前代碼塊，如果當(dāng)前代碼塊是主程序，則程序終止，如果程序塊是被調(diào)用的模塊，則跳到上一層程序繼續(xù)執(zhí)行。Halt： 強(qiáng)制終止程序，返回操作系統(tǒng)。Abort： 中止程序運(yùn)行，保留主程序。Goto： 跳轉(zhuǎn)。六、單元的組織結(jié)構(gòu) dpr(項(xiàng)目文件) 唯一 pas(單元文件)

20、工程項(xiàng)目 dfm(窗體文件) 其它文件(如res(資源文件)一個(gè)不一定項(xiàng)目文件(program)組織結(jié)構(gòu)單元文件(Unit)組織結(jié)構(gòu)單元的循環(huán)引用循環(huán)引用的意思是：A引用了B，而B(niǎo)又引用了A，且都是在interface部分進(jìn)行引用。如下面的單元?jiǎng)t通不過(guò)編譯：unit Unit1;unit Unit2;interfaceinterfaceusesuses Unit2; Unit1;至于有一個(gè)引用放置在implementation部分類(lèi)的概念： 指某一類(lèi)事物共同特征的抽象描述。類(lèi)使用屬性和方法來(lái)描述某一事物的具體特征和行為。對(duì)象的概念： 即類(lèi)的實(shí)例化。面向?qū)ο缶幊痰谋憩F(xiàn)形式： 封裝 繼承 多態(tài)封裝

21、代碼模塊化指利用類(lèi)將數(shù)據(jù)和方法封裝起來(lái)，從而實(shí)現(xiàn)功能的隱匿，即控制功能的可見(jiàn)性。1、訪(fǎng)問(wèn)控制符私有成員訪(fǎng)問(wèn)符(private)受保護(hù)成員訪(fǎng)問(wèn)符(protected)公有成員訪(fǎng)問(wèn)符(public)發(fā)布的成員訪(fǎng)問(wèn)符(published)自動(dòng)的成員訪(fǎng)問(wèn)符(automated)/不再使用，向后兼容保留2、封裝方式a、邏輯封裝對(duì)類(lèi)進(jìn)行操作，將業(yè)務(wù)的功能和行為以類(lèi)的形式呈現(xiàn)。b、物理封裝表現(xiàn)形式：如動(dòng)態(tài)鏈接庫(kù)(DLL)。繼承代碼重用繼承就是根據(jù)已有的類(lèi)創(chuàng)建一個(gè)新類(lèi)的過(guò)程。繼承的類(lèi)稱(chēng)為子類(lèi)，被繼承的類(lèi)稱(chēng)基類(lèi)。子類(lèi)的功能就是完善與擴(kuò)展基類(lèi)。子類(lèi)可以繼承基類(lèi)的變量、屬性和方法。1、屬性的繼承屬性通過(guò)繼承不但可以

22、增加可見(jiàn)性，還可以對(duì)其功能進(jìn)行擴(kuò)展。2、方法的繼承方法靜態(tài)方法：默認(rèn)類(lèi)型虛方法(virtual)動(dòng)態(tài)方法(dynamic)抽象方法(abstract)：基類(lèi)無(wú)需實(shí)現(xiàn)，子類(lèi)必須實(shí)現(xiàn)。 當(dāng)代碼被編譯時(shí)，編譯器會(huì)給靜態(tài)方法一個(gè)地址；子類(lèi)繼承時(shí)，只是將基類(lèi)方法的地址賦給了子類(lèi)。代碼運(yùn)行時(shí)通過(guò)動(dòng)態(tài)查找VMT/DMT來(lái)指定地址。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TFo

23、rm) edt1: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); private Private declarations public Public declarations end;type TMyBaseClass = class public procedure BaseSetEdt; end;type TMyChildClass = class(TMyBaseClass) public procedure ChildSetEdt; end;var Form1: TForm1;implementation$R *

24、.dfm TMyBaseClass procedure TMyBaseClass.BaseSetEdt;begin Form1.edt1.Text := Form1.edt1.Text + 基類(lèi);end; TMyChildClass procedure TMyChildClass.ChildSetEdt;begin Form1.edt1.Text := Form1.edt1.Text + 子類(lèi);end; TForm1procedure TForm1.btn1Click(Sender: TObject);var MyChildClass: TMyChildClass;begin MyChildC

25、lass := TMyChildClass.Create; MyChildClass.BaseSetEdt; MyChildClass.ChildSetEdt;end;end.多態(tài)接口重用多態(tài)性是允許你將父對(duì)象設(shè)置成為和一個(gè)或更多的他的子對(duì)象相等的技術(shù)，賦值之后，父對(duì)象就可以根據(jù)當(dāng)前賦值給它的子對(duì)象的特性以不同的方式運(yùn)作（摘自“Delphi4 編程技術(shù)內(nèi)幕”）。簡(jiǎn)單的說(shuō)，就是一句話(huà)：允許將子類(lèi)類(lèi)型的指針賦值給父類(lèi)類(lèi)型的指針。覆蓋(override)和虛方法是多態(tài)的主要表現(xiàn)形式。注意：重載(overload)只是一種語(yǔ)言特性，與多態(tài)無(wú)關(guān)，與面向?qū)ο鬅o(wú)關(guān)！重載(overload)：1、方法名一定相

26、同。2、參數(shù)個(gè)數(shù)、參數(shù)類(lèi)型及參數(shù)順序不同。3、在Delphi中，返回值不同，不能區(qū)分兩個(gè)重載的方法。例：function ShowMsg(psStr: String;piInt: integer): String;overload; function ShowMsg(piInt: integer;psStr: String): String;overload; function ShowMsg(piInt: Integer): String;overload;procedure ShowMsg(piInt: Integer);overload; function ShowMsg(piInt:

27、integer): Integer;overload;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, StdCtrls;type TMyPanel = class(TPanel) public procedure SetColor;virtual;abstract; end;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender

28、: TObject); private public procedure CreatePanel(poPanel: TMyPanel;piWidth,piHeight,piTop,piLeft: Integer;psCaption: String); end;type TMyPanelA = class(TMyPanel) public procedure SetColor;override; end;type TMyPanelB = class(TMyPanel) public procedure SetColor;override; end;var Form1: TForm1;implem

29、entation$R *.dfm TMyPanel procedure TMyPanel.SetColor;begin Self.Color := clGreen;end; TMyPanelA procedure TMyPanelA.SetColor;begin /inherited; Self.Color := clRed;end; TMyPanelB procedure TMyPanelB.SetColor;begin /inherited; Self.Color := clBlue;end; TForm1 procedure TForm1.CreatePanel(poPanel: TMy

30、Panel; piWidth, piHeight, piTop, piLeft: Integer; psCaption: String);begin with poPanel do begin Caption := psCaption; Left := piLeft; Top := piTop; Width := piWidth; Height := piHeight; Parent := Self; SetColor; end;end;procedure TForm1.btn1Click(Sender: TObject);var loMyPanel: TMyPanel; loPanelA:

31、TMyPanelA; loPanelB: TMyPanelB;begin loMyPanel := TMyPanel.Create(Self); CreatePanel(loMyPanel,100,100,50,20,基類(lèi)Panel); loPanelA := TMyPanelA.Create(Self); CreatePanel(loPanelA,100,100,50,130,PanelA); loPanelB := TMyPanelB.Create(Self); CreatePanel(loPanelB,100,100,50,240,PanelB);end;end.VCL是可視化組件庫(kù)(V

32、isual Component Library)的簡(jiǎn)稱(chēng)；它是一個(gè)龐大的類(lèi)、組件庫(kù)，Delphi和C+Builder使用的組件庫(kù)都是VCL。類(lèi)似于C+的MFC。VCL架構(gòu)VCL采用單根架構(gòu)(Single-rooted Hierarchy)，即所有類(lèi)的祖先都是Tobject，且每次只能從一個(gè)類(lèi)派生子類(lèi)(即單繼承而非多繼承)。JAVA也采用單根架構(gòu)，而C+不是。使用VCL1、靜態(tài)方式設(shè)計(jì)時(shí)加入組件進(jìn)行屬性和事件設(shè)計(jì)。2、動(dòng)態(tài)方式用代碼創(chuàng)建類(lèi)的實(shí)例(對(duì)象)，然后使用它提供的功能，最后銷(xiāo)毀它。擴(kuò)展VCL自定義組件當(dāng)現(xiàn)有的類(lèi)和組件無(wú)法滿(mǎn)足我們的需要時(shí)，可以從VCL的現(xiàn)有類(lèi)和組件上派生新的子類(lèi)和子組件。SQL語(yǔ)言組成： 數(shù)據(jù)定義語(yǔ)言(DDL)例如：CREATE、DROP、ALTER等語(yǔ)句。 數(shù)據(jù)操作語(yǔ)言(DML)例如：INSERT（插入）、UPDATE（修改）、DELETE（刪除）語(yǔ)句。 數(shù)據(jù)查詢(xún)語(yǔ)言(DQL)例如：SELECT語(yǔ)句。 數(shù)據(jù)控制語(yǔ)言(DCL)例如：GRANT、REVOKE、COMMIT、ROLLBACK等語(yǔ)句數(shù)據(jù)查詢(xún)語(yǔ)言(DQL)SELECTALL|DIS