关于参数传递的问题,谁帮我解决，马上给200分！反正分很多！

Question

Button1.OnClick(Sender: TObject);
var
  FValue: Variant;
  FAccept: Boolean;
begin
.........
  dxDBLookupEdit1CloseUp(Sender, FValue, FAccept);
.........
end;

Answer 1

var 声明的是变参，调用吗
Tform1.dxDBLookupEdit1CloseUp(Sender: TObject;var Value: Variant; var Accept: Boolean);//按原型来dxDBLookupEdit1CloseUp(nil,//这就不用说了；
                       Value,//只要是Variant类型的变量就可以，但是在过程中可以被改变；
                       Accept);//一样的

Answer 2

var
  vParam1 :Variant;
  vParam2 :Boolean;
begin
  dxDBLookupEdit1CloseUp(Sender,vParam1,vParam2);//类型匹配就可以了
end;

Answer 3

//新会员级别处理函数//声明过程
procedure newmember_fun(var Aqueryc:Tadoquery;var hykh1:string;hytype:string;buydate:tdate);
begin
...
end;
//调用过程
newmember_fun(adoquerylevelchange,hykhvalue,'金卡',fieldbyname('buydate1').AsDateTime)

Answer 4

Sender是什么参数啊，干嘛的？别笑我啊

Answer 5

sender 好象是接受到这个消息的那家伙，
//这里只要类型匹配就行了，不知道你是什么错误

Answer 6

var
  FValue: Variant;
  FAccept: Boolean;
begin
  dxDBLookupEdit1CloseUp(Sender, FValue, FAccept);
end;

Answer 7

var
  FValue: Variant;
  FAccept: Boolean;
begin
  dxDBLookupEdit1CloseUp(Sender, FValue, FAccept);
end;