一个Tparams小测试

最新推荐文章于 2022-06-30 10:01:04 发布

weixin_30267697

最新推荐文章于 2022-06-30 10:01:04 发布

阅读量88

点赞数

原文链接：http://www.cnblogs.com/Thenext/p/9755524.html

版权

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;