将 cxGrid 导出到 excel 在 SaveDialog window 中不显示文件类型

Question

这不是一个大问题，但我想知道我是否做错了什么。

我在 delphi 表单上有一个 cxgrid，只需单击一个按钮，我就可以将其导出到 Excel。

代码：

TfrmMain.ExcelButtonClick(Sender: TObject);
begin
  with SaveDialog do
  begin
    Filter := '*.xls';
    if Execute
      then ExportGridToExcel(SaveDialog.FileName,Grid,TRUE,TRUE,TRUE,'xls');
  end;
end;

出现保存对话框时，另存为类型 为空且不显示文件扩展名。

我还需要做些什么吗？

如有任何帮助，我们将不胜感激。

谢谢，

Answer 1

SaveDialog.Filter := 'Excel Files (*.xls)|*.xls'

将 cxGrid 导出到 excel 在 SaveDialog window 中不显示文件类型

Export cxGrid to excel not showing file type in SaveDialog window

delphi

tcxgrid

delphi-xe2