var
cdsNew:TClientDataset;
begin
cdsNew:=TClientDataset.Create(self);
try
cdsNew.Data:=vA;
showmessage(inttostr(cdsNew.RecordCount));
finally
cdsNew.free;
end;
end;
cdsNew:TClientDataset;
begin
cdsNew:=TClientDataset.Create(self);
try
cdsNew.Data:=vA;
showmessage(inttostr(cdsNew.RecordCount));
finally
cdsNew.free;
end;
end;
解决方案 »
- 用Gdi+的请进
- dll中DataSource连接动态的ADOQUERY
- 如何获得用户在DBGridEh的picklist下拉框中选择的是哪个值?
- 如何在OleContainer中加入滚动条
- 四舍五入的函数怎么写?如要对123.67四舍五入? 谢谢
- Ttable,tadoquery到底哪个好?
- 如何在Application最小化的情况下,在屏幕上显示一个窗口?
- ----------------------我想这真是个难题,难道我水平太差?!!!需要这样的控件:form的背景是图片,在form上放置按钮,这个按钮要透明
- 如何取的一个文本文件的记录数,在线等待
- 如何制作启动画面:
- 掌上电脑可以运行我自己的DELPHI程序吗?
- Delphi系统问题请教!!!
if VarIsEmpty(vA) or VarIsNull(vA)
then
...判断是否为数组
if VarIsArray(vA)判断维数
VarArrayDimCount(vA)判断某一维高界
VarArrayHighBound(vA, DimCount)判断某一维低界
VarArrayLowBound(vA, DimCount)DimCount是维数