这种定义为什么能编译通过(100分)

L

lbjsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #1

请问大虾:
定义这样一个函数 Procedure xxx(var Buf1);
buf1没有说明任何类型,却能通过,请问是为什么?
如何把它转换为String类型呢?

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #2

在Delphi帮助中查找：
untyped parameters,

procedure TForm1.aa(var bb);
begin
ShowMessage(String(bb));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
abb: String;
begin
abb := 'aa';
aa(abb);
end;

 

L

lbjsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #3

非常感谢您给出的方案,客户在string(bb)会有错误出现呀!

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #4

那你传入的参数是什么？
如果不是String类型当然可能出错了。比如如果传入整型，立马就甭叉。
如果你参数未知，不放使用Variant类型，不要用untype类型。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #5

procedure TForm1.aa(var bb: Variant);
begin
ShowMessage(VarToStr(bb));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
abb: Variant;
begin
abb := 12;
aa(abb);
end;

 

L

lbjsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #6

在一个组件的事件中,它定义了如次的方法,为了程序需要,
我必须要在事件中对程序进行处理,不能由其它函数调用(aa(bbb))来实现.

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #7

没懂

 

L

lbjsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #8

不能外部函数来调用,

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #9

那你是否知道会有什么类型的参数传入？
如果知道，直接强制类型转换就可以了，否则，似乎就不好办了。。。