procedure TForm1.RzButton1Click(Sender: TObject); var i,j: integer; t:dword; begin t := gettickcount; tree.BeginUpdate; for i := 0 to 500 do with tree.Add do for j := 0 to 19 do Values[j] := 'test'; tree.EndUpdate; showmessagefmt('%f秒', [(gettickcount - t)/1000]); end;0.06秒如果是你连数据集都没的话,我就真的是不知道什么原因了...
TreeNode: TcxTreeListNode;
try
TreeGrid.BeginUpdate;
TreeNode := TreeGrid.Add;
finally
TreeGrid.EndUpdate;
end;
ExpressDBTree Suite.v1.3.6 ,就是以前一个傻瓜安装版本,大概就是这个版本号
var
i,j: integer;
t:dword;
begin
t := gettickcount; tree.BeginUpdate;
for i := 0 to 500 do
with tree.Add do
for j := 0 to 19 do
Values[j] := 'test';
tree.EndUpdate; showmessagefmt('%f秒', [(gettickcount - t)/1000]);
end;0.06秒如果是你连数据集都没的话,我就真的是不知道什么原因了...