这个写法有点怪 ( 积分: 100 )

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #1

type
TA1=class
procedure ck;
procedure p(F1:string);virtual;
end;

TA2=class(TA1)
procedure p(F1:string);override;
end;

procedure TA1.p(F1:string);
begin
showmessage(F1);
end;

procedure TA1.ck;
begin
p('')
//为了调用p,''假数参，觉得很怪
end;

procedure TA2.p(F1:string);
begin
F1:='A2F1'
//参数自已传，觉得很怪
inherited;
end;


这样做让F1只定义在过程域内进行传递，
过程P不用在别的地方调用了，只调用ck
求比较正规的写法？

 

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #2

type
TA1=class
procedure ck;
procedure p(F1:string);virtual;
end;

TA2=class(TA1)
procedure p(F1:string);override;
end;

procedure TA1.p(F1:string);
begin
showmessage(F1);
end;

procedure TA1.ck;
begin
p('')
//为了调用p,''假数参，觉得很怪
end;

procedure TA2.p(F1:string);
begin
F1:='A2F1'
//参数自已传，觉得很怪
inherited;
end;


这样做让F1只定义在过程域内进行传递，
过程P不用在别的地方调用了，只调用ck
求比较正规的写法？

 

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #3

现在DFW上掉得也真快，呵呵

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #4

就是子类自己忽略传进来的参数自己改写参数继续上传到父类处理啊！一点都不怪，只不过用的少而已。程序是死的，人是活的，想怎么写就怎么写，有没上帝规定子类不能修改参数值？况且声明的时候F1也不是const麻，想咋改就咋改。

 

A

avbb4cat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #5

zqw0117 有理! 呵呵! 支持!

 

Z

zjan521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #6

procedure TA2.p(F1:string);
begin
inherited p('A2F1');
end;

 

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-29

• #7

to zqw0117
我不是不理解代码，不过你的说明还是很好的，谢谢

to zjan521
inherited p('A2F1');
我忘记了能这样写，直观了些

结贴了