微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

tmssoftware TTMSFNCGrid 数据加载缓慢

如何解决tmssoftware TTMSFNCGrid 数据加载缓慢

Delphi 10.4.2,TTMSFNCGrid 版本。 1.0.5.16

我正在将大约 30,000 条记录从数据库下载到一个 json 对象中。这大约需要 1 分钟。

然后我尝试将数据输入(循环)到 TTMSFNCGrid 中,它有大约 30,000 条记录和 16 列。数据输入需要 20 分钟!这是渲染和填充网格所需的时间。我怎样才能加快这个过程?

我使用这样的东西

 for _i:= 0 to JSON_ARRAY_DANE.Count-1 do
 begin
     _row:=  JSON_ARRAY_DANE.Items[_i] as TJSONObject;
     _grid.Cells[0,_i+1]:=_row.GetValue('c1').Value;
     _grid.Cells[1,_i+1]:=_row.GetValue('c2').Value;
     _grid.Cells[2,_i+1]:=_row.GetValue('c3').Value;
     .
     .
     _grid.Cells[2,_i+1]:=_row.GetValue('c16').Value;
end

解决方法

已解决。 需要补充:

_grid.BeginUpdate; _grid.EndUpdate;

 **_grid.BeginUpdate;**
 for _i:= 0 to JSON_ARRAY_DANE.Count-1 do
 begin
     _row:=  JSON_ARRAY_DANE.Items[_i] as TJSONObject;
     _grid.Cells[0,_i+1]:=_row.GetValue('c1').Value;
     _grid.Cells[1,_i+1]:=_row.GetValue('c2').Value;
     _grid.Cells[2,_i+1]:=_row.GetValue('c3').Value;
     .
     .
     _grid.Cells[16,_i+1]:=_row.GetValue('c16').Value;
end;
 **_grid.EndUpdate;**

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。