如何直接给参数赋值(50分)

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #1

就像API函数一样！
如：一个函数的返回值是一个TFont类型，我知道可以写成：
Funtion aa:TFont;
如果写成过程该怎样写呢？
Procedure ss(sFont:TFont);
调用：
Var
FFont:TFont;
procedure ....
begin
FFont:=TFont.Create;
ss(FFont);
end
需要它的功能应同FFont.assign(aa)一样。
不知我有没有说清楚！!

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #2

Procedure ss(var sFont:TFont);
???

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #3

Procedure ss(var sFont:TFont);

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #4

利用您们的方法调用后出错：
[Error] Unit1.pas(29): Constant object cannot be passed as var parameter

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #5

你是怎么使用的？要赋一个TFont类型的变量给它呀

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #6

这是变参啊，你必须在外面先声明一个TFONT的变量，再把你要传入的值赋给这个变量，然后再作为参数传入

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #7

多人接受答案了。