TParams(50分)

如何使用TParams类
var
a:TParams
编译报告TParams没有定义不知为何?

function a ( a:TParams ) : bealoon;
结果也是一样

?
要是我没记错的话TParams是由Delphi自动生成的。
如Query1的SQL如下:
Select * from Table1 Where Field1 = :AAA
则你可以使用
Query1.ParamByName('AAA').AsString ....

如果你要自定义函数过程，只需要：
function a(p1: Boolean, p2: string, p3 : Boolean = True): Boolean;

TParams类不能自己创建吗？

下面是我的存储过程使用TPARAMS的代码，供参考
With Storedproc1 Do
Begin
DatabaseName := Datafrm.Database1.DatabaseName;
StoredProcName := 'dbo.insert_new_br_base';
Params.Create;
Params.CreateParam(ftString, '@blh', ptInput);
Params.CreateParam(ftString, '@xm', ptInput);
Params.CreateParam(ftString, '@sfzh', ptInput);
Params.CreateParam(ftBoolean, '@xb', ptInput);
Params.CreateParam(ftDateTime, '@csrq', ptInput);
Params.CreateParam(ftfloat, '@nl', ptInput);
Params.CreateParam(ftInteger, '@zycs', ptInput);
Params.CreateParam(ftString, '@lxdh', ptInput);
Params.CreateParam(ftInteger, 'Result', ptResult);
End;

uses DB！！！！！

看一下Delphi Help关于TParams就知道了！！！！！

类没有定义是如李颖所说的你没有使用相应的定义它的unit。

uses DBTables;

有点东西告诉大家：

使用到某个组件时，Delphi IDE会把相应的UnitName

加到你的uses串中，知道是怎么实现的吗？？

因为类的RTTI中有UnitName信息。

我写了一个小程序，显示各种东西的RTTI，

写信到e.w@263.net索取

多人接受答案了。