Delphi泛型結合接口的應用 （譯自Delphi2009 Handbook）

            通過接受一個限定的參數，這個參數是實現某個接口的類，比較起直接接受泛型，而限制這個泛型的類要更加靈活。也就是通常所說的面向接口式的編程。這樣可以達到調用實現了這個接口的各種泛型的實例。這種對泛型使用接口約束的應用，在.net框架中有很廣泛的應用。下面是一個實例（命名爲IntfConstraint）。

 

            首先，需要聲明一個接口：

type IGetValue = interface ['{60700EC4-2CDA-4CD1-A1A2-07973D9D2444}'] function GetValue: Integer; procedure SetValue (Value: Integer); property Value: Integer read GetValue write SetValue; end;

 

         接下來我們定義一個類實現這個接口：

TGetValue = class (TSingletonImplementation, IGetValue) private fValue: Integer; public constructor Create (Value: Integer); // = 0); function GetValue: Integer; procedure SetValue (Value: Integer); end;

 

        精彩內容從下面開始，接着我們定義一個泛型類，這泛型類被限定了是實現了（我們上面定義的）指定的接口：

TInftClass <T: IGetValue> = class private val1, val2: T; // or IGetValue public procedure Set1 (val: T); procedure Set2 (val: T); function GetMin: Integer; function GetAverage: Integer; procedure IncreaseByTen; end;

 

          這個類的泛型方法如下：

function TInftClass<T>.GetMin: Integer; begin if Assigned (val1) and Assigned (val2) then Result := min (val1.GetValue, val2.GetValue) else Result := 0; end; procedure TInftClass<T>.IncreaseByTen; begin if Assigned (val1) and Assigned (val2) then begin val1.SetValue (val1.GetValue + 10); val2.SetValue (val2.GetValue + 10); end; end;

 

 

        有了如上的定義，我們可以這樣使用這個泛型類（數值型參數，接着還有其他類型參數的）：

procedure TFormIntfConstraint.btnValueClick(Sender: TObject); var iClass: TInftClass<TGetValue>; begin iClass := TInftClass<TGetValue>.Create; try iClass.Set1 (TGetValue.Create (5)); iClass.Set2 (TGetValue.Create (25)); Log ('Average: ' + IntToStr (iClass.GetAverage)); iClass.IncreaseByTen; Log ('Min: ' + IntToStr (iClass.GetMin)); finally iClass.val1.Free; iClass.val2.Free; iCLass.Free; end; end;

 

 

 

         爲了展現這個泛型類的靈活性，我又建立了一個完全不同的（對GetValue接口）的實現：

// IGetValue 的第二種實現 ， 對TButton對象 TButtonValue = class (TButton, IGetValue) public function GetValue: Integer; procedure SetValue (Value: Integer); class function MakeTButtonValue ( Owner: TComponent; Parent: TWinControl): TButtonValue; end;

 

       

     ButtonValue中，生成按鈕座標位置（隨機位置，在父對象中）的成員函數，這個和主題關係不大，所以收縮

// ButtonValue 成員函數，用來生成按鈕的座標位置 class function TButtonValue.MakeTButtonValue(Owner: TComponent; Parent: TWinControl): TButtonValue; begin Result := TButtonValue.Create(Owner); Result.Parent := Parent; Result.SetBounds( Random (Parent.Width), Random (Parent.Height), Result.Width, Result.Height); Result.Caption := 'btnv'; end;

 

        ButtonVaule中GetVaule和SetValue實現：

// ButtonValue 中實現GetValue 和SetValue function TButtonValue.GetValue: Integer; begin Result := Left; end; procedure TButtonValue.SetValue(Value: Integer); begin Left := Value; end;

 

 

       下面是第二種（按鈕座標）泛型類的使用：

// 主窗體中測試第二種（按鈕的位置）泛型調用 procedure TFormIntfConstraint.btnValueButtonClick(Sender: TObject); var iClass: TInftClass<TButtonValue>; begin iClass := TInftClass<TButtonValue>.Create; try iClass.Set1 (TButtonValue.MakeTButtonValue (self, ScrollBox1)); iClass.Set2 (TButtonValue.MakeTButtonValue (self, ScrollBox1)); Log ('Average: ' + IntToStr (iClass.GetAverage)); Log ('Min: ' + IntToStr (iClass.GetMin)); iClass.IncreaseByTen; Log ('New Average: ' + IntToStr (iClass.GetAverage)); finally iClass.Free; end; end;

 

 

 

 源代碼下載  （已添加了中文註釋）