一个Tparams小测试

var
aParams: TParams;
aPar: TParam;
I:Integer;
begin
aParams := TParams.Create(nil);
 aPar := aParams.CreateParam(ftVarBytes, '数据表1', ptInput);
 aPar.AsString:='aaaaa' ;
  aPar := aParams.CreateParam(ftVarBytes, '数据表2', ptInput);
 aPar.AsString:='bbbbb' ;
 //aPar.AsParams:=aParams;
 if aParams.Count = 0 then
exit;
 for I := 0 to aParams.Count-1 do
 begin
  lst1.Items.Add(  aParams.Items[i].Name+aparams.Items[i].AsString);



 end;
end;