关于@@使用的问题？请相告！(0分)

J

jackyxinli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #1

type
MyFun = function(X1,X2: Integer): Integer;

function Sum(X1,X2: Integer): Integer;
begin
Result := X1 + X2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
D: F;
begin
D := @@Sum;
I := D(1,2);
ShowMessage(IntToStr(I));
end;
系统老是提示我Variable required，不知道哪需要变量啊？

 

W

wfzha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #2

这样就行了
type
MyFun = function(X1,X2: Integer): Integer;

function Sum(X1,X2: Integer): Integer;
begin
Result := X1 + X2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
D: myFun;
begin
D := @Sum;
I := D(1,2);
ShowMessage(IntToStr(I));
end;

 

W

wdlyc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #3

第一次看见两个@@一起用的

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #4

没用过，应该是间接寻址吧？找地址的地址。

 

S

sungods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #5

就见过**一起用的啊~
@是引用的意思，@@是什么意思（引用内容的内容）
昏~