Delphi集成開(kāi)發(fā)環(huán)境與工程創(chuàng)立根底要求：通過(guò)本章的學(xué)習(xí)，要求熟悉Delphi集成開(kāi)發(fā)環(huán)境和掌握Delphi工程的創(chuàng)立。Delphi集成開(kāi)發(fā)環(huán)境簡(jiǎn)介

Delphi工程創(chuàng)立的根底方法習(xí)題Delphi7.0與VisualBasic一樣，是用來(lái)創(chuàng)立Windows應(yīng)用程序的一種快速應(yīng)用開(kāi)發(fā)工具，一種可視化編程環(huán)境。我們可以更加直觀地使用圖形化工具來(lái)創(chuàng)立Windows的應(yīng)用程序。它使我們從完全以代碼的形式創(chuàng)立可視化應(yīng)用程序的繁瑣且復(fù)雜的工作中解脫出來(lái)，使我們可以不用掌握太多的編程專業(yè)知識(shí)就能創(chuàng)立出圖形化的高難度應(yīng)用程序，這一切都得益于Delphi的集成開(kāi)發(fā)環(huán)境。1Delphi集成開(kāi)發(fā)環(huán)境簡(jiǎn)介運(yùn)行Delphi7.0時(shí)的開(kāi)發(fā)環(huán)境如下圖。 Delphi7.0的開(kāi)發(fā)環(huán)境由以下幾局部組成：?主窗口?代碼編輯器?窗體設(shè)計(jì)器?對(duì)象觀察器?工程管理器

1.1主窗口 Delphi7.0的主窗口位于整個(gè)開(kāi)發(fā)環(huán)境的頂部。它是開(kāi)發(fā)過(guò)程中的核心。我們正是通過(guò)對(duì)主窗口進(jìn)行操作從而實(shí)現(xiàn)軟件的開(kāi)發(fā)工作。利用它可以完成工程的建立、應(yīng)用程序的編寫(xiě)、幫助信息的查詢、程序的編譯和調(diào)試過(guò)程以及應(yīng)用程序的日常維護(hù)等工作。 主窗口分為以下三個(gè)局部：菜單欄〔Menu〕、快捷工具欄〔SpeedBar〕和控件板。1.2代碼編輯器代碼編輯器又稱作單元窗口，是編寫(xiě)程序代碼的地方。它一般隱藏在窗體設(shè)計(jì)器的下面。可以通過(guò)以下幾種方法來(lái)顯示它：通過(guò)選擇【View】菜單的【CodeExplorer】命令或者【ToggleForm/Unit】命令；單擊快捷工具欄中的Form/Unit轉(zhuǎn)換快捷鍵；選擇任意僅對(duì)代碼操作的命令。

在Delphi7.0的代碼編輯器又分為兩個(gè)密不可分的窗口，這兩個(gè)窗口在形式上是相互獨(dú)立的：左邊窗口是單元管理窗口〔UnitExplorer〕，它顯示的是代碼編輯的接口局部的結(jié)構(gòu)組成，包括類定義局部、變量和常量的定義局部以及引用聲明局部。右邊窗口是狹義上的代碼編輯器，又稱單元窗口，是用來(lái)編輯源程序的地方,如下圖。1.3窗體設(shè)計(jì)器窗體設(shè)計(jì)器作為IDE的一個(gè)局部，主要通過(guò)向窗體中添加控件以及更改窗體及控件的屬性來(lái)完成窗體的設(shè)計(jì)。窗體設(shè)計(jì)的主要步驟：向窗體中添加可以完成應(yīng)用程序任務(wù)的控件；更改控件屬性使之滿足程序設(shè)計(jì)要求；將控件的事件與程序代碼相聯(lián)系，用代碼實(shí)現(xiàn)控件的活動(dòng)。控件添加到窗體以后，對(duì)象觀察器中就會(huì)產(chǎn)生這一控件對(duì)象的屬性列表和與這一控件對(duì)象相關(guān)的事件列表。更改控件屬性在對(duì)象觀察器中完成，聯(lián)系控件對(duì)象的屬性與程序代碼由對(duì)象觀察器與代碼編輯器共同完成，而這兩步的完成都建立在第一步添加控件到窗體的根底上。1.4對(duì)象觀察器對(duì)象觀察〔ObjectInspector〕器是用來(lái)描述控件對(duì)象及窗體對(duì)象的屬性特征和行為事件的。如下圖，對(duì)象觀察器包括兩個(gè)頁(yè)面：屬性〔Properties〕頁(yè)面事件〔Events〕頁(yè)面在一個(gè)控件添加到窗體以后，對(duì)象觀察器中就會(huì)添加這一控件對(duì)象，并產(chǎn)生這一控件對(duì)象的屬性列表和與這一控件對(duì)象相關(guān)的事件列表。屬性頁(yè)面列出了控件的Published屬性。對(duì)象觀察器中的屬性和事件列表與窗體設(shè)計(jì)器中選中的對(duì)象是一一對(duì)應(yīng)的。局部屬性前有“＋”號(hào)，稱之為多重屬性，表示這一屬性里包含了好幾項(xiàng)。例：+Constrains等等。1.5工程管理器工程管理器顯示一個(gè)工程中窗體、單元、資源、庫(kù)和其它文件。在工程管理器，可以進(jìn)行諸如翻開(kāi)、增加、刪除、編譯工程等工作，也可以將一個(gè)工程增加到工程組或?qū)墓こ探M中刪除一個(gè)工程，或同時(shí)編譯工程組中的所有工程。選擇View菜單中ProjectManager命令，就可以翻開(kāi)工程管理器對(duì)話框。從中你可以看到工程組中的所有工程及一個(gè)工程中的所有窗體文件、單元文件及其路徑。如下圖。2Delphi工程創(chuàng)立的根底方法在介紹了Delphi的開(kāi)發(fā)環(huán)境之后，重點(diǎn)介紹應(yīng)用Delphi開(kāi)發(fā)程序的根本步驟以及有關(guān)程序設(shè)計(jì)的概念等。使用Delphi設(shè)計(jì)Windows應(yīng)用程序，一般包括以下幾個(gè)步驟：〔1〕

開(kāi)始一個(gè)新工程?！?〕

創(chuàng)立窗體?！?〕

將構(gòu)件放入窗體內(nèi)?！?〕

處理窗體、構(gòu)件響應(yīng)的事件。〔5〕編譯程序。2.1快速創(chuàng)立應(yīng)用程序在Delphi裝入時(shí)，Delphi自動(dòng)建立一個(gè)新工程，這個(gè)工程具有Delphi的缺省設(shè)置。可以使用File菜單的New或NewApplication命令。執(zhí)行File|Application重新開(kāi)始一個(gè)新程序，如同Delphi裝入時(shí)一樣。2.2設(shè)計(jì)窗體窗體是構(gòu)造應(yīng)用程序的根本結(jié)構(gòu)單元。在Delphi裝入時(shí)，Delphi為程序員生成了一個(gè)新的空白窗體。在設(shè)計(jì)時(shí)或運(yùn)行時(shí)，窗體可以有一系列不同的特性〔Property〕。這些特性確定了窗體的外部形態(tài)和特征。在設(shè)計(jì)階段用ObjectInspector設(shè)置窗體特性。在運(yùn)行期間，這些相同特性的大局部可以用代碼設(shè)置。下面將開(kāi)始設(shè)計(jì)第一個(gè)的應(yīng)用程序：使用了一個(gè)按鈕控件、一個(gè)文字面板。本程序不是一個(gè)實(shí)際運(yùn)用的程序，但設(shè)計(jì)步驟卻與大多數(shù)實(shí)際運(yùn)用程序相同。將控件放入窗體中，編寫(xiě)簡(jiǎn)單的代碼，編譯運(yùn)行。2.3處理事件 選擇控件Button1，在對(duì)象觀察器中選擇事件頁(yè)。事件OnClick表示當(dāng)用戶單擊按鈕時(shí)發(fā)生的事件。雙擊OnClick，那么激活代碼編輯器，代碼編輯有生成的處理OnClick事件的過(guò)程代碼?；蛑苯与p擊窗體上的Button1控件，激活OnClick的事件處理Button1Click。Delphi自動(dòng)產(chǎn)生的事件處理過(guò)程的Begin…End塊中是空的，實(shí)際上什么都沒(méi)有做。因此需要添加執(zhí)行代碼：Procedure TForm1.Button1Click(Sender:TObject);beginApplication.Terminate;end;3.2.4指定幫助和圖標(biāo)文件幫助系統(tǒng)使程序更易學(xué)習(xí)、使用。圖標(biāo)用于應(yīng)用程序最小化的時(shí)候代表應(yīng)用程序。在本程序中，由于是示范性程序，故沒(méi)有提供幫助。圖標(biāo)使用Delphi的缺省圖標(biāo)。在實(shí)際編程中，要指定上述兩種文件，可以選擇菜單上的【Project】【Options】命令或在工程管理器單擊【ProjectOptions】加速條以翻開(kāi)ProjectOptions對(duì)話框，然后選擇Application頁(yè)，如圖3.25。在各自的編輯框內(nèi)鍵入.ICO文件或.HLP文件名，你也可以用【Browse】按鈕瀏覽這些文件所在的位置，最后按下【OK】按鈕。3.2.5編譯、運(yùn)行程序應(yīng)用程序開(kāi)發(fā)的最后一步就是編譯、運(yùn)行，以檢查程序錯(cuò)誤，并提供用戶最終可使用的程序。Delphi提供了兩種方法對(duì)程序進(jìn)行編譯：第一種使用【Project】菜單中的【Compile】命令。該命令編譯當(dāng)前工程中所有修改正的文件〔自上次生成執(zhí)行文件以來(lái)〕，生成可執(zhí)行的EXE文件。如果使用工程組，且要編譯工程組中所有工程，使用【CompileAllProjects】命令。第二種使用【Project】菜單中的【Build】命令。該命令編譯當(dāng)前工程中所有文件，而不管這些文件修改沒(méi)有，生成可執(zhí)行的EXE文件。如果使用工程組，且要編譯工程組中所有工程，使用【BuildAllProjects】命令?！纠?.1】求一個(gè)任意三角形的面積。(1)界面設(shè)計(jì)使用Button、Edit、Label組件和showmessage消息框即可完成界面設(shè)計(jì)，用戶界面如下圖。

(2)屬性設(shè)置(3)程序設(shè)計(jì)procedureTForm2.Button1Click(Sender:TObject);vara,b,c,s,area:real;str1:string;begina:=strtofloat(edit1.Text);b:=strtofloat(edit2.Text);c:=strtofloat(edit3.Text);s:=(a+b+c)/2;area:=sqrt(s*(s-a)*(s-b)*(s-c));str(area:8:3,str1);showmessage('面積為：'+str1);end;procedureTForm2.Button2Click(Sender:TObject);beginedit1.Text:='';edit2.Text:='';edit3.Text:='';end;【例2-2】鐵路托運(yùn)行李，從甲地到乙地，規(guī)定每張客票托運(yùn)費(fèi)計(jì)算方法是：行李重量不超過(guò)５０kg時(shí)，每公斤０.２５元，超過(guò)５０Kg而不超過(guò)１００Kg時(shí)，其超過(guò)局部０.３５元／Kg，超過(guò)１００Kg時(shí)，其超過(guò)局部０.４５元／Kg。試編寫(xiě)程序，輸入行李重量，計(jì)算并輸出托運(yùn)的費(fèi)用。(1)界面設(shè)計(jì)使用Button、Edit、Label組件即可完成界面設(shè)計(jì)。(2)屬性設(shè)置

(3)程序設(shè)計(jì)procedureTForm2.Button1Click(Sender:TObject);varw,x:real;begin

ifedit1.text=''thenedit1.Text:='0';w:=strtofloat(edit1.Text);

ifw<=50thenx:=0.25*w

else

ifw<=100thenx:=0.25*50+0.35*(w-50)

elsex:=0.25*50+0.35*50+0.45*(w-100);edit2.Text:=flo