请问引用和派生的概念。 (0分)

  • 主题发起人 主题发起人 awfigsk
  • 开始时间 开始时间
A

awfigsk

Unregistered / Unconfirmed
GUEST, unregistred user!
type
Tmyclass=class
end;
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1:Tform1;
myclass:Tmyclass;
implementation
procedure Tform1.formcreate(sender:tobject);
begin
myclass:=Tmyclass.create;
end;
end.
请问myclass是class派生出来的吗?由于执行了tmyclass.create,所以myclass
是tmyclass的实例吗?谢谢!
 
你说哪方面的?生理方面的嘛??哈哈哈哈哈
 
根据ObjectPascal的语法,当class保留字后面为空时,默认是从TObject派生
所以,TMyclass 是TObject的派生类
Myclass是TMyclass的一个实例
 
stargazer,很感谢您的回答!
 
后退
顶部