【正文】 Delphi教程 清華大學(xué)出版社 課程介紹 ? Delphi是著名的 Borland公司開發(fā)的可視化軟件開發(fā)環(huán)境，自 1995年問世以來，帶來了程序設(shè)計中的一場重大變化。 Delphi作為第四代編程語言，具有簡單、高效和功能強大等特點，這些特點使得它為廣大程序開發(fā)者所青睞。 第 1章 Delphi基礎(chǔ)知識 Delphi簡介 Delphi作為一種可視化的編程環(huán)境，經(jīng)歷了 7代產(chǎn)品的發(fā)展歷程 : ◆ Borland公司在 1995年推出了基于Windows平臺的 Delphi 1。 ◆ Delphi 2新增加的主要功能是對 32位編程的支持。還增加了如數(shù)據(jù)模塊等多種高效的數(shù)據(jù)重用功能。 ◆ Delphi 3對其組件庫進行增強 ,完全支持ActiveX組件及其創(chuàng)建 。 ◆ Delphi 4提供了 Object Pascal語言的擴展 ,但系統(tǒng)穩(wěn)定性較差 。 ◆ 1999年推出 Delphi 5增強了數(shù)據(jù)庫的功能 ◆ 2022年 6月推出 Delphi 6 ，增加了大量的新組件，使組件數(shù)目達 350多個，以滿足網(wǎng)絡(luò)開發(fā)的需要。 ◆ 2022年 8月推出 Delphi 7 ，在集成開發(fā)環(huán)境IDE、 Web、數(shù)據(jù)庫、編譯器、模型生成支持及組件庫等很多方面進行了改進 Delphi7 IDE 認識集成開發(fā)環(huán)境 Delphi 7的 IDE主要包括 7個部分：主窗口、組件面板、工具欄、窗體設(shè)計器、代碼編輯器、對象觀察器和代碼瀏覽器。 圖 11 Delphi 7 的IDE 主要包括： 菜單欄 、 工具欄 、 標(biāo)題欄和組件面板 Delphi7的主菜單包括 11個下拉菜單 注意：工具欄上的按鈕都提供了描述該按鈕功能的 tooltip，除了組件面板 IDE有 6個獨立的工具欄 IDE工具欄的定制功能并不僅限于配置需要顯示的按鈕，還可以調(diào)整工具欄、組件面板和菜單欄在主窗口中的位置。 圖 12 Delphi 7的主窗圖口 Delphi7組件板包含了 350多個組件，是Delphi可視化編程的核心部件，它由 27個選項卡組成 組件面板如圖 14所示 包含了 IDE中安裝的所有的 VCL組件和ActiveX組件 將組件板上的組件添加到窗體上的三種方法： ①單擊組件板上的所需組件的按鈕，然后在窗體適當(dāng)位置拖動鼠標(biāo)畫出組件，即可將組件添加到窗體的指定位置上 圖 14 Delphi 7的組件面板 ②雙擊組件板上的所需組件的按鈕，即可將組件添加到窗體的中心位置 ③按下 Shift鍵不放，單擊組件板上的所需組件的按鈕，所選組件出現(xiàn)藍色邊框，同時對象選擇按鈕將彈起 組件板中的組件分為 可視組件 與 非可視組件 在創(chuàng)建新的項目時，窗體設(shè)計器是一個空白的窗口?？梢杂檬髽?biāo)調(diào)整組件在窗體設(shè)計器上的位置和大小，還可以用對象觀察器和代碼編輯器來控制組件的外觀和行為 。 利用對象觀察器，可以修改窗體或組件的屬性，或者使它們能夠響應(yīng)不同的事件 。 屬性 (Property)是 一些數(shù)據(jù) ，如高度、顏色、字體等，它們決定了組件在屏幕上的外觀。事件 (Event)則是一種消 息處理機制 ，它能夠捕捉某種情況的發(fā)生并做出反應(yīng)，像鼠標(biāo)單擊和窗口打開就是兩種典型的事件。 對象觀察器類包括 Properties選項卡和Events選項卡 下圖兩個對象觀察器，左邊一個按種類排序，右邊一個按名字排序。 注意：幫助系統(tǒng)是和對象觀察器緊密結(jié)合在一起的，想了解某個屬性或事件的幫助信息，只要在該屬性或事件上按下 F1 鍵 圖 15 按種類或名稱查看 Object Inspector 代碼編輯器是輸入代碼來指定應(yīng)用程序行為的地方，也是 Delphi根據(jù)應(yīng)用程序中的組件自動生成代碼的地方。當(dāng)向應(yīng)用程序中加入一個窗體時， Delphi會自動創(chuàng)建一個新的單元，并添加到代碼編輯器頂部的標(biāo)簽中。 以一種樹狀視圖方式顯示列在代碼編輯器中的單元文件。通過它，可以方便地在單元文件中漫游或在單元文件中加入新的元素或者把已有的文件改名。要記住 代碼瀏覽器 和代碼編輯器 有一對一的關(guān)系。 當(dāng)對窗體設(shè)計器中可視化組件進行操作時Delphi IDE自動生成 Object Pascal源代碼。 當(dāng)用 【 File】 |【 New】 |【 Application】 菜單命令創(chuàng)建一個新的項目時，將看到屏幕上出現(xiàn)一個空白的窗體設(shè)計器，同時，代碼編輯器中會自動出現(xiàn)一些代碼，如下所示： unit Unit1。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs。 type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end。 var Form1: TForm1。 implementation {$R *.dfm} end. 從上述源代碼清單中可以看出，窗體對象是從 TForm繼承下來的。 下面這一行非常重要： {$R*.dfm} Pascal語言中的 $R指令用于加載一個外部資源文件。 *.dfm文件中包含在窗體設(shè)計器中創(chuàng)建的表單的二進制代碼。其中的“ *” 表示與當(dāng)前單元文件同名的文件。 項目文件的擴展名是 .dpr 可以選擇主菜單下的 【 Project】 |【 View Source】 命令把項目源文件調(diào)入代碼編輯器。 如下用程序示例的項目文件： program Project1。 uses Forms, Unit1 in 39。39。 {Form1}。 {$R *.res} begin 。 (TForm1, Form1)。 。 end. 當(dāng)添加表單和單元時將出現(xiàn)在 uses子句中 基于組件的編程思想 Ⅰ .早期 DOS操作系統(tǒng)和 C語言主導(dǎo)的時代，“數(shù)據(jù)結(jié)構(gòu) +算法”成為構(gòu)建軟件惟一方式 Ⅱ .C++語言和面向?qū)ο蠹夹g(shù) Ⅲ . 20世紀 90年代中期流行一種嶄新的程序設(shè)計概念 :軟件可以由可互換的組件構(gòu)成 組件是一種通過公開的 屬性 、 方法 、 事件 ，是可以重復(fù)使用的一種經(jīng)過編譯的二進制文件，其文件名可以是 .OCX或者是 .dll，如命令按鈕、復(fù)選框、單選框、滾動條等都是常見的組件。 Delphi 7的特點 Delphi最顯著的特點就是高效性和穩(wěn)定性，主要體現(xiàn)在以下 4個方面： ●可視化開發(fā)環(huán)境的性能。 ●編譯器的速度和已編譯代碼的效率。 ●編程語言的功能及其復(fù)雜性。 ●豐富的 VCL 可視化開發(fā)環(huán)境通?？煞譃?3個部分： 編輯器 、 調(diào)試窗口 和 窗體設(shè)計器 。 Pascal編譯器最著名特點就是速度快 ， 而Delphi正是建立在這種編譯器基礎(chǔ)之上的 。 增加了鏈接和各種緩存策略 ， 尤其是在Visual C++和 C++ Builder中 。 匯編是一種最有力的語言 ， 即便是用匯編開發(fā)最簡單的應(yīng)用程序 ， 難度也非常大 ， 還可能一無所獲 。 VCL VCL是 Delphi7最重要的組成部分 ， 包含不同種類的組件 。 幫助的使用 （ 1） 當(dāng)遇到問題時 ， 可以嘗試按下 【 F1】 鍵 ，一般情況下 Delphi都會準確地定位 。 （ 2） 如果需要瀏覽系統(tǒng)的一些幫助內(nèi)容 ， 比如說對象 Pascal語言 ， 可以通過菜單 【 Help】|【 Delphi Help】 命令打開 【 幫助主題：Delphi Help】 對話框 ， 在目錄標(biāo)簽中展開相關(guān)條目 ， 進行系統(tǒng)學(xué)習(xí) 。 3） 當(dāng)使用 Windows API函數(shù)時 ， 通過 【 Help】|【 Delphi Help】 打開的 【 幫助主題： Delphi Help】 對話框中 ， 在 【 索引 】 選項卡中可能查不到有關(guān)的幫助信息 ， 有兩種解決辦法： 一種辦法是在代碼編輯器中輸入 Windows API函數(shù)的名稱，然后將光標(biāo)定位到該名稱中，接著按下 【 F1】 鍵。 另一種辦法是通過 【 Help】 |【 Windows SDK】 打開幫助文件 ，在 【 索引 】選項卡中查找。 （ 4）幫助文件打開時，要瀏覽相關(guān)內(nèi)容，可以按下工具欄中的 【 】 或 【 】 按鈕，通常這樣是在同一個主題中瀏覽。通過一些 See Also熱鏈接，也可以查看相關(guān)的幫助內(nèi)容。 （ 5）在組件欄上右擊，通過快捷菜單的 Help命令，可以查看有關(guān)組件的幫助內(nèi)容。 （ 6） 在 Delphi集成開發(fā)環(huán)境中 ， 通過 【 Help】|【 Customize】 命令可以打開 【 Open Help】窗口 ， 在該窗口中可以對幫助文件進行管理 ，其中包括 幫助內(nèi)容 、 幫助索引 、 鏈接位置 和幫助工程文件 等的管理 。 簡單 Delphi程序設(shè)計 Delphi 7編寫應(yīng)用程序包括 新建應(yīng)用程序 、設(shè)置窗體屬性 、 添加組件 、 設(shè)置組件屬性 、添加事件 、 編寫事件響應(yīng)代碼 、 編譯運行 等 啟動 Delphi 7，選擇 【 File】 |【 New】 |【 Application】 菜單，新建一個應(yīng)用程序。 單擊 【 Object Inspector】 ，在對象觀察器中打開 【 Properties】 選項卡，單擊 Caption屬性右側(cè)，輸入窗體的新標(biāo)題“窗口”。 單擊 Standard選項卡上的 Button組件，將鼠標(biāo)指向窗體中的任意位置（標(biāo)題欄除外），單擊鼠標(biāo)，即可把 Button1組件放入窗體中?；蛘咧苯与p擊組件面板上的 Button組件，也可以在窗體中添加一個 Button1組件。 選中組件，單擊 Object Inspector的標(biāo)題欄以激活對象觀察器，并選擇 Properties選項卡。在對象觀察器中單擊要設(shè)置的屬性，進行屬性設(shè)置。 選中要添加事件的組件，激活對象觀察器，并選擇 Event選項卡，在對象觀察器中單擊要添加的事件，在其右側(cè)輸入事件的響應(yīng)函數(shù)名稱，然后回車即可。 選定要編寫事件響應(yīng)代碼的組件 ，打開 Event選項卡，雙擊要編寫響應(yīng)代碼的事件右側(cè)的空白部分，進入代碼編輯窗口。 procedure (Sender: TObject)。 //單擊放大按鈕，窗口將放大 begin :=+10。 //窗口高度 10 :=+10。 //窗口寬度 10 end。 procedure (Sender: TObject)。 //單擊縮小按鈕，窗口將縮小 Begin :=。 //窗口高度減 10 :=。 //窗口寬度減 10 end。 procedure (Sender: TObject)。 //關(guān)閉窗口 begin close。 //退出 end。 圖 16 例程運行界面 Delphi上機步驟 在窗體設(shè)計器中添加如圖 17所示的各組件。 組件屬性設(shè)置完成后，編寫如下代碼： 圖 17 窗體布局圖 ? procedure (Sender: TObject)。 //編輯框 1中的內(nèi)容改變時的事件 ? var ? stringlength:integer。 //定義整型變量，記錄編輯框 1中字符的個數(shù) ? begin ? stringlength:=。 //得到編輯框 1中字符個數(shù) ? :=inttostr(stringlength)。 //編輯框 2顯示編輯框