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;另有一个ExpressQuantumTreeList Demo ,希望对你能有所帮助!http://www.devexpress.com/Downloads/VCL/ExQuantumTreeList/