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;
解决方案 »
- 如何让软件置前?
- 紧急请教,线程中,调用线程中的函数和调用主线程中的函数,有啥区别?
- TSreport控件!!!
- *****SOS******,要死人了!!!!!!!
- 在书上看了一个回调函数的例子,自己试了一下老有错误,跪求高手指导
- 请问如何获得DBCOMBOBOX的当前选择值(字符串型)?
- delphi 怎样控制 flowpanel 里控件间的距离
- 如何实现:当鼠标移动到一个button上时,会出现一个浮动菜单
- 程序执行到GetPrivateProfileString报告kernel32.dll错误?why?
- 关于多用户操作同一个表的问题
- 各位大哥帮看下我的delphi存储图片程序是否有错
- 在SQL语句中如果让一个日期时间型字段减去一个x分钟?
SetLength是分配数据的占用空间。
我理解大致是这样,因你没有给处语境。