Frm_Data.ADO.First;
SetLength(zonght.tm,zonght.i+frm_data.ADO.RecordCount);
SetLength(zonght.da,zonght.i+frm_data.ADO.RecordCount);
while not Frm_Data.ADO.Eof do
begin
zonght.TM[zonght.i]:=Frm_Data.ADO.Fields[0].asstring;
zonght.da[zonght.i]:=Frm_Data.ADO.Fields[1].asstring;
zonght.i:=zonght.i+1;
Frm_Data.ADO.Next;
end;
SetLength(zonght.tm,zonght.i+frm_data.ADO.RecordCount);
SetLength(zonght.da,zonght.i+frm_data.ADO.RecordCount);
while not Frm_Data.ADO.Eof do
begin
zonght.TM[zonght.i]:=Frm_Data.ADO.Fields[0].asstring;
zonght.da[zonght.i]:=Frm_Data.ADO.Fields[1].asstring;
zonght.i:=zonght.i+1;
Frm_Data.ADO.Next;
end;
解决方案 »
- 如何让自己的delphi 程序嵌入到网页中去
- 如何显示多张图片,我要做一个预览图片?还是用Image控件?实现
- 这个函数在delphi里面怎么定义?
- 生成文件及打开的问题
- 再请jie115(守望红木) 进来,答谢!!
- 删除文件到回收站操作,编译时出现这个对话框,不知道是不是系统和api不兼容的原因。请大家指教!
- 疼寻(TENCENT)真黑!
- 通过dde操纵winword!!
- net send 的问题
- 为什么装了Win NT 4.0的硬盘换到另一机子上不能启动,可不可以把某个硬件配置文件删了?
- 各位大哥帮看下我的delphi存储图片程序是否有错
- 在SQL语句中如果让一个日期时间型字段减去一个x分钟?
SetLength是分配数据的占用空间。
我理解大致是这样,因你没有给处语境。