如果用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;
这样导出就没有乱码