44 lines
682 B
Plaintext
44 lines
682 B
Plaintext
Type TSVbaBase = class
|
|
|
|
public
|
|
Function Create(app, cre, par);
|
|
|
|
private
|
|
application_;
|
|
creator_;
|
|
parent_;
|
|
|
|
public
|
|
property Application read ReadApplication;
|
|
property Parent read ReadParent;
|
|
property Creator read ReadCreator;
|
|
Function ReadApplication();
|
|
Function ReadParent();
|
|
Function ReadCreator();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSVbaBase.Create(app, cre, par);
|
|
Begin
|
|
application_ := app;
|
|
creator_ := cre;
|
|
parent_ := par;
|
|
End;
|
|
|
|
// property
|
|
Function TSVbaBase.ReadApplication();
|
|
Begin
|
|
return application_;
|
|
End;
|
|
|
|
Function TSVbaBase.ReadParent();
|
|
Begin
|
|
return parent_;
|
|
End;
|
|
|
|
Function TSVbaBase.ReadCreator();
|
|
Begin
|
|
return creator_;
|
|
End;
|