Type TSVbaBase = class

public
	Function Create(app, par, cre);

private
	application_;
	parent_;
	creator_;

	property Application read ReadApplication;
	property Parent read ReadParent;
	property Creator read ReadCreator;
	Function ReadApplication();
	Function ReadParent();
	Function ReadCreator();

End;

// ============== 实现 ================= //
Function TSVbaBase.Create(app, par, cre);
Begin
	application_ := app;
	parent_ := par;
	creator_ := cre;
End;

// property
Function TSVbaBase.ReadApplication();
Begin
	return application_;
End;

Function TSVbaBase.ReadParent();
Begin
	return parent_;
End;

Function TSVbaBase.ReadCreator();
Begin
	return creator_;
End;