5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
武稀松 2002-01-29
- 打赏
- 举报
type HResult = Longint;
Linux2001 2002-01-29
- 打赏
- 举报
那么HResult是什么用呢
Linux2001 2002-01-29
- 打赏
- 举报
那么HResult是什么用呢
lemon_jyg 2002-01-29
- 打赏
- 举报
上一层的
Linux2001 2002-01-29
- 打赏
- 举报
那么他执行的是所有基类函数的同名函数还是只执行上一层基类的同名函数呢
CeleronII 2002-01-29
- 打赏
- 举报
继承啊，可以执行父类相同的过程和函数。
严黎斌 2002-01-29
- 打赏
- 举报
在一个虚拟函数或过程中，执行父类中同名且参数类型相同的函数或过程。
用在Create中很多的。
用在Create中很多的。
lixin89 2002-01-29
- 打赏
- 举报
type
TStudent = class
public
procedure study; virtual;
end;
TStudent.study;
begin
showmessage('英语');
end;
type
TStudent_A = class(TStudent)
public
procedure study; overried
end;
TStudent.study;
begin
inherited;
showmessage('数学');
end;
tform1.button1onclick(sender：Tobject);
var student1: TStudent_A ;
begin
student1 := TStudent_A.create ;
try
student1.study
finally
student1.free
end;
end;
result:
英语
数学
这就是inherited;
TStudent = class
public
procedure study; virtual;
end;
TStudent.study;
begin
showmessage('英语');
end;
type
TStudent_A = class(TStudent)
public
procedure study; overried
end;
TStudent.study;
begin
inherited;
showmessage('数学');
end;
tform1.button1onclick(sender：Tobject);
var student1: TStudent_A ;
begin
student1 := TStudent_A.create ;
try
student1.study
finally
student1.free
end;
end;
result:
英语
数学
这就是inherited;
