函数怎么传递控件的名称？

Question

procedure TFormMenu.ViewMenu(DTime:string;BoxName:TCheckListBox);
begin
  with Data.ADOQueryMenu do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Menu;');
    Open;
  end;
  with Data.ADOQueryMenu,BoxName do
  begin
    BoxName.clear;
    while not eof do
      begin
        BoxName.Items.Add(fieldbyname('MName').asstring);
        next;
      end;
  end;
end;
调用时怎么用，还是有什么问题，如： ViewMenu('1';CheckListBox2);

Answer 1

试试ViewMenu('1';CheckListBox2);可不可以不就行了ViewMenu('1', CheckListBox2);//参数之间使用，号分割

Answer 2

晕，同意 things(平) (枕流以洗耳，漱石以磨牙)