函数赋值(100分)

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #1

比如 function fff(ss:string):string;

怎么实现在触发某事件时，给fff赋值？比如Button1Click，办得到吗？

 

B

BlackDragon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #2

可以啊.你要怎样?

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #3

给一个简单代码就行,比如 fff:='abc'

 

O

ourself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #4

An example for you:

function TForm1.test(var s: string): string;
begin
if (s='In') then
result:='Result of '+s+' = Out'
else if (s='Out') then
result:='Result of '+s+' = In';
end;

procedure TForm1.btnTestClick(Sender: TObject);
var
s,s1:string;
begin
s:='In';
s1:=test(s);
showMessage(s1);
end;

 

B

BlackDragon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #5

呵,这么晚了,还有人来,又晚了.

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #6

原来域外用回调就实现啊！我的100两喔……
呵呵，给BlackDragon 十两意思意思，ourself不在意吧。
又一问题不好意思在这里提出，请关照关照。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1026602