dxTreeList导入到excel文件

如果用SaveToFile导出会出现乱码，但它还有一个函数SaveAllToStrings，可以用来过渡一下。

var
  list:TStrings;

  list := TStringList.Create;
  try

    dxTreeList1.SaveAllToStrings(list);
    if form1.SaveDialog1.Execute then list.SaveToFile(form1.SaveDialog1.FileName);

  finally

    list.free;

  end;
 

这样导出就没有乱码