訪問器的威力(屬性訪問器) (2001年5月26日) 

本站更新  分類:控件使用   作者:Pieter Valentijn  推薦:   閱讀次數(shù):180  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

屬性訪問器非常強(qiáng)大。
它使你能完成儲如初始化對象或生成數(shù)據(jù)等要依靠對象的其它屬性的工作。
你能這樣來新建屬性：先在接口段中聲明它們?nèi)缓蟀碈trl+Shift+''c''。
這樣就會新建一個稱為Fsomeproperty的私有變量，和一個稱為SetSomeProperty的方法。

在本例中我創(chuàng)建了一個對象，它具有控制其它對象的屬性。通過此屬性的Read操作，我會檢查它是否為零，以便在運行時創(chuàng)建它。
你還可以用此屬性的Set訪問器來檢查數(shù)值是否超出邊界。
type
TMySubObject = Class

end;

TMyObject = Class
private
fMySubObject : TMySubObject 
FASecondNum: Integer;
FAFirstnum: Integer;
function getMySubObject: TMySubObject;
function GetTotaalOfFirstAndSecondNum: integer;
procedure SetFirstnum(const Value: Integer);
public

Property MySubObject : TMySubObject Read getMySubObject 
Property AFirstnum : Integer read FAFirstnum write SetFirstnum;
Property ASecondNum : Integer read FASecondNum write FAFirstnum;
Property TotaalOfFirstAndSecondNum : integer read 
GetTotaalOfFirstAndSecondNum 
end;


implementation

{$R *.DFM}

{ TMyObject }

function TMyObject.getMySubObject: TMySubObject;
begin
//我在此檢查它是否已賦值。
If not Assigned(fMySubObject) Then fMySubObject := TMySubObject.Create 
Result := fMySubObject 
end;


function TMyObject.GetTotaalOfFirstAndSecondNum: integer;
begin
Result := FAFirstnum + FASecondNum 
end;

procedure TMyObject.SetFirstnum(const Value: Integer);
begin
//在此通過set可以檢查邊界。
If (Value > 0) and (Value < 1000) then
FAFirstnum := Value
Else Raise Exception.Create(''Number out of bounds'');
end;