程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 第二章-Delphi面向對象的編程方法(三)(2)

第二章-Delphi面向對象的編程方法(三)(2)

編輯:Delphi

2.1.9.4 字符串類型 

字符串類型事實上是一個一維的字符數組。當您說明一個字符串型的變量時,您應當指明這個字符串的大小,下面是說明字符串類型的例子:

type

MyString: string[15];

var

MyName: MyString; 

則變量MyName被說明成為最多可以包含15個字符。如果您沒有說明字符串的大小,Delphi會認為字符串包含最大值255個字符。給字符串賦值可以直接使用單引號括起的字串賦值: 

MyName := 'Frank.Smith';

或MyName := '張明'; 

因為MyName是一個可以包含15個字符的MyString型變量,上文的兩個的變量都是有效的,一個漢字可以視作兩個字符。當您給字符串型變量賦的值多於定義數值時,例如將MyName賦為‘FrankSmith.Franklin’,則Delphi只會接受前15個字符‘FrankSmith.Fran’。在內存中,字符串通常占用比所說明的大小多一個字節的空間,因為第一個位置是一個包含這個數組大小的字節。您可以使用索引值來訪問字符串的字符,MyName[1]可以得到MyName的第一個字符'F'。

您可以使用Delphi豐富的運算符、過程和函數來處理字符串型的變量和屬性。下面介紹幾個常用的運算符和Delphi過程或函數:

Concat和(+)功能相同,都可以將多個字符串組合在一起,建立一個較大的字符串;Copy會返回一個字符串中的子字符串;Delete在一個字符串中從一個指定位置起刪除一定數目的字符;Insert在一個字符串中插入一個字符串;Length返回字符串的長度;Pos返回一個子字符串在一個字符串中的位置,即索引值。 

2.1.9.5 集合類型 

集合類型是一群相同類型元素的組合,這些類型必須是有限類型如整形、布爾型、字符型、枚舉型和子界型。在檢查一個值是否屬於一個特定集合時,集合類型非常有用。下面的例程可以說明集合類型的用法:

在窗體上加入一個編輯框和一個按鈕,清除編輯框中的文字,在其上加上Caption為“輸入元音”的標簽Label,並在編輯框的下方加入一個空的標簽,將按鈕的Default屬性改為True,建立按鈕的事件處理過程如下: 

procedure TForm1.Button1Click(Sender:TObject);

type

Tvowels=set of Char;

var

Vowels:TVowels;

begin

Vowels := ['a','e','i','o','u'];

if Edit1.Text[1] in Vowels then

Lable2.Caption := '是元音';

else

Lable2.Caption := '請再試';

end; 

執行這個程序,在編輯框中輸入字母,表達式Edit1.Text[1] in Vowels的結果是布爾型的,in是運算符,用來判斷字母是否存在於集合中。輸入的判別結果會顯示在編輯框的下方。以上就用到了集合類型TVowels。 

2.1.9.6 記錄類型 

記錄是您的程序可以成組訪問的一群數據的集合。下面的例程說明了一個記錄類型的用法: 

type

TEmployee=record

Name : string[20];

YearHired:1990..2000;

Salsry: Double;

Position: string[20];

end; 

記錄包含可以保存數據的域,每一個域有一個數據類型。上文的記錄TEmployee類型就含有四個域。您可以用以下的方式說明記錄型的變量: 

var

NewEmployee,PromotedEmployee:TEmployee;

用如下的方法可以訪問記錄的單域:

NewEmployee.Salary := 1000;

編寫如下的語句可以給整個記錄賦值: 

with PromotedEmployee do

begin

Name :='';

YearHired := 1993;

Salary := 2000.00

Position := 'editor';

end; 

您的程序可以將記錄當成單一實體來操作: 

PromptEmployee := NewEmployee;

以上介紹了用戶常用的自定義類型。在Delphi的編程中,對象是非常重要的用戶自定義數據類型。象記錄一樣,對象是結構化的數據類型,它包含數據的域(Field),也包含作為方法的過程和函數。在Delphi中,當您向窗體中加入一個部件,也就是向窗體對象中加入了一個域;每一個部件也是對象,每當您建立一個事件處理過程使得部件可以響應一個事件時,您即自動地在窗體中加入了一個方法。在本章第2節中,將詳細講述Delphi面向對象編程的方法和技巧。 

2.1.10 Object Pascal的庫單元Unit 

Units是常量、變量、數據類型、過程和函數的集合,而且能夠被多個應用程序所共享。Delphi已經擁有許多預定義的程序庫單元可供您建立您的程序庫單元使用。Delphi的Visual Component Library由多個程序庫單元組成,它們說明了對象、部件以供您的應用程序用來設計用戶界面。例如,當您在窗體中加入一個Check Box時,Delphi自動在您的程序庫單元中加入了Stdctrls庫單元,因為TCheckBox部件是在StdCtrls庫單元中說明的。

當您設計您的窗體時,Delphi自動建立一個和您的窗體有關的庫單元。您的庫單元不必都和窗體有關,也可以使用預定義的只包含數學運算函數的庫單元,或是自行編寫數學函數庫單元。在一個庫單元中所有的說明都相互有關系,例如,CDialogs程序庫單元包含了在您的應用程序中使用的普通對話框的所有說明。 

2.1.10.1 Object Pascal程序庫單元的結構 

不管一個庫單元是否和一個窗體有關,庫單元的結構都是相同的。其結構如下: 

unit <庫單元名稱> 

interface 

uses <選擇性的庫單元列表>

{公有說明} 

implementation 

uses <選擇性的庫單元列表>

{私有說明}

{過程和函數的執行部分}

initialization {選擇性的}

{選擇性的初始化程序}

end. 

2.1.10.2 程序庫單元的接口部分 

interface是庫單元的接口部分,它決定了本庫單元對其他任何庫單元或程序的可見(可訪問)部分。您可以在接口部分說明變量、常量、數據類型、過程和函數等等。Delphi在您設計窗體的庫單元中,將窗體數據類型、窗體變量和事件處理過程都說明在這一部分。

interface標志庫單元接口部分的開始。在interface中的說明對要使用這些說明的其他庫單元或應用程序是可見的。一個庫單元可以使用其他Unit的說明,只需要在uses子句中指明那些庫單元即可。例如,您在庫單元A中編寫程序代碼,且您想調用UnitB於interface部分說明的程序。您可以把庫單元B的名稱加入到A的interface部分的uses子句中,則任何A中的程序都可以調用B中說明的程序。而且,如果B中interface部分的uses子句中出現C庫單元,盡管A中未曾出現C,A同樣可以調用B、C庫單元在interface中說明的程序。但如果B出現在A的interface部分的uses子句中,那麼庫單元A便不能出現在B的interface的uses子句中。因為這樣會產生對庫單元的循環訪問。當試圖編譯時,會產生出現錯誤信息。 

2.1.10.3 程序庫單元的實現部分 

實現部分implementation中包含interface中說明的過程、函數、事件處理過程的具體實現程序代碼。這一部分可以有自己的額外說明,但這些說明是私有的,外部程序不能調用這些說明。在interface中說明的函數實體必須在implementation部分出現,可以使用標題簡寫:只輸入procedure或function保留字,後面跟過程或函數的名稱即可,其後則是程序的實現部分了。如果您在implementation部分說明任何常式,其標題並未出現在interface部分,則必須寫全其標題部分。

在implementation部分的uses子句中指定的庫單元,只供給本庫單元的程序使用其interface中說明的程序。其他使用本庫單元的庫單元,不能訪問這些在implementation的udes子句中庫單元的說明,因為在implementation後進行的庫單元包含是私有的。所以上例中,如果C出現在B的implementation部分,則A不能使用C的公有部分,除非C出現在A的uses子句中。在implementation中出現的循環訪問是Delphi所允許的,如果A的implemetation的uses子句中出現B,則B的implementation部分也可以出現A。 

2.1.10.4 程序庫單元的初始化部分 

初始化當前庫單元所使用的數據,或是通過interface部分將數據提供給其他應用程序、庫單元使用時,您可以在庫單元中加入一個initialization部分,在庫單元的end前加上您的初始化語句。當一個應用程序使用一個庫單元時,在庫單元中的initialization部分會先於其他的代碼執行。如果一個應用程序使用了多個庫單元,則每一個庫單元的初始化部分都會在所有的程序代碼前執行。 

2.1.10.5 使用Delphi的可視化部件及其庫單元 

當您在窗體中加入可視化部件時,如果該部件在可視化部件庫中,Delphi會在您的庫單元的interface部分的uses子句中自動加上需要使用的庫單元名稱。但有些對象在Delphi的環境中並沒有可視化部件存在,例如,您想在庫單元中加入一個預定義的信息框,則您必須把MsgDlg庫單元加入您的uses子句中。如果您要使用TPrinter對象的話,必須將Printer庫單元加入uses子句中。在在線幫助中可以查到對象所屬的預定義庫單元。

要使用在其他庫單元中說明的函數,應在函數的前面加上這一庫單元的名稱,並用‘.’號隔開。例如,要在Unit2中使用Unit1中說明的Calculate函數,應使用下面的方法:

Number := Unit1.Calculate(10);

您可以在任何標識符如屬性、常量、變量、數據類型、函數等之前加上庫單元的名稱。您可以在自由地在任何Delphi庫單元中加入程序代碼,但不要改變由Delphi生成的程序。 

2.1.10.6 建立與窗體無關的新庫單元 

如果您想在工程中建立一個和任何窗體無關的新庫單元,可以現選用File|New Unit。這時一個新的庫單元加入了工程,新庫單元的代碼如下: 

unit Unit2;

interface

implementation

end. 

Delphi將根據您的工程中的文件數目為您的庫單元選擇名稱,您可以在程序骨架間加入您的程序代碼。

當編譯您的工程時,這個新加入的庫單元會被編譯為一個具有.DCU後綴的文件。這個新生成的文件是鏈接到工程的可執行文件上的機器代碼。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved