unit2的内容
基类
type
Tmyclass=class
private
a:integer;
public
procedure seta(value:integer);
property the:integer read a write seta;
end; Tmeclass=class(Tmyclass)
public
procedure go;
end;implemention
procedure Tmyclass.seta(value:integer);
begin
a:=value;//*不停的执行这行
end;procedure Tmeclass.go;
begin
inherited the:=3;
end;
unit1的内容
uses unit2;
按下button1
var
ha:Tmyclass;
haha:Tmeclass;
begin
ha:=Tmyclass.create;
haha:=Tmeclass.create;
haha.go;
end;
执行后编译无错,但在*处不断执行
基类
type
Tmyclass=class
private
a:integer;
public
procedure seta(value:integer);
property the:integer read a write seta;
end; Tmeclass=class(Tmyclass)
public
procedure go;
end;implemention
procedure Tmyclass.seta(value:integer);
begin
a:=value;//*不停的执行这行
end;procedure Tmeclass.go;
begin
inherited the:=3;
end;
unit1的内容
uses unit2;
按下button1
var
ha:Tmyclass;
haha:Tmeclass;
begin
ha:=Tmyclass.create;
haha:=Tmeclass.create;
haha.go;
end;
执行后编译无错,但在*处不断执行
解决方案 »
- 高分求助,在WebBrowser中如何发送组合按键消息。
- 继续扰乱次序,散分
- delphi中的ADOQuery无法触发 TDateTimeField的onsettext事件
- 谁有Rational Rose 2001 windows版本的lisence key啊,帮帮我,
- 关于ado
- 语句怎么写??急用??
- sql server中的视图(View)是通过哪个ADO控件和程序连接起来的,如果用BDE连又是哪个?
- 枚举类型问题
- 有DELPHI7 序列号吗,
- 会计凭证问题
- WEB SERVICES客户端调用的问题.运行时出错Access Violation at address 004037DB in module 'PWSDemo1.exe'.
- Help Me!Scktsrvr应用问题
begin
inherited the:=3;
end;
不知道这样写有什么意义?个人认为不好。