J
jackyxinli
Unregistered / Unconfirmed
GUEST, unregistred user!
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,不知道哪需要变量啊?
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,不知道哪需要变量啊?