将参数改为数组解决方案

将参数改为数组
下面是带参数打开数据集通用过程，但有时参数是不固定的，有时没有，有时1个，有时2个甚至3个，
我想把参数改为数组应该可以写一个过程就好了，可是不会写，还请各位帮忙！

procedure OpenQueryPara(adq: TadoQuery; s: string; s1, s2, s3: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Open;
end;

[解决办法]
delphi 开放数组

[解决办法]
将数组定义为一个类，然后传递类
[解决办法]

Delphi(Pascal) code

procedure TForm1.SendArray(s: array of Integer);begin  ShowMessage(IntToStr(Length(s)));end;procedure TForm1.Button1Click(Sender: TObject);var  i:array of Integer;begin  SetLength(i,3);  i[0] := 1;  i[1] := 2;  i[2] := 3;  SendArray(i);end;
[解决办法]
探讨

下面是带参数打开数据集通用过程，但有时参数是不固定的，有时没有，有时1个，有时2个甚至3个，
我想把参数改为数组应该可以写一个过程就好了，可是不会写，还请各位帮忙！

procedure OpenQueryPara(adq: TadoQuery; s: string; s1, s2, s3: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Open;
end;

[解决办法]
XML code
//自己拼一个XML串，做参数var  xmlParams:Widestring;xmlParams := '<jobParams>' +               '<param name="参数名1">参数值</param>' +               '<param name="参数名2">参数值</param>' +               '<param name="参数名3">参数值</param>' +               '<param name="参数名4">参数值</param>'+             '</jobParams>';
[解决办法]
调用时仅需要告诉前端程序员XML格式是什么就行了
[解决办法]
使用可选参数就可以了。
[解决办法]
不好意思，楼上的结构少了个begin