cxGrid时间格式与导出Excel

引用cxFormats单元:
ShortDateFormat := 'dd/mm/yyyy';
DateSeparator := '/';
cxFormatController.UseDelphiDateTimeFormats := True;

 

在cxGridStrs.pas文件里:
scxGridNoDataInfoText = '<No data to display>';
scxGridGroupByBoxCaption = 'Drag a column header here to group by that column';
改成:
scxGridGroupByBoxCaption = '拖动数据列到这里分组';

关于CxDateEdit 下拉“星星星”问题的解决方法(实测有效):
设置TcxDateEdit的字符集:Style->Font->Charset 选择DEFAULT_CHARSET 即可解决此问题
方法1、把cxCalendar单元的第2024行隐掉即可
方法2、把FONT和CHARST属性改为DEFAULT

旧版本导出到Excel:
uses cxExportGrid4Link;
SaveDialog1.InitialDir:='c:\';
SaveDialog1.FileName:='续订信'+FormatDateTime('yyyy-mm-dd',Now);
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:= 'Fichier de donnees (*.xls)|*.xls';

if SaveDialog1.Execute then
begin
ExportGrid4ToExcel(SaveDialog1.FileName,cxGrid1,True,True);
end;
end;

新版本导出到Excel:
从原来使用cxGrid4系列开始,都是使用ExportGrid4ToExcel的办法,可是使用了6系列后,发现这个办法已经不行了,从Dev官方找了解决办法。
use
cxGridExportLink;

procedure TMainForm.cxButton_MemoExcelClick(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True);
end;

end;

///////////注意:ExportGridToExcel导出的标准格式,从源代码可以看出是以下的格式。
ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True,'xls');
但是,后参数可以省略。如:
ExportGridToExcel(SaveDialog1.FileName,cxGrid1),参数是否需要是根据需要来定。各参数的含意可以看源代码。源码如下:
procedure ExportGridToExcel(const AFileName: string; AGrid: TcxGrid;
AExpand: Boolean; ASaveAll: Boolean; AUseNativeFormat: Boolean; const AFileExt: string);
begin
ExportGridToFile(AFileName, cxExportToExcel, AGrid, AExpand, ASaveAll, AUseNativeFormat, '', '', '', AFileExt);
end;

你可能感兴趣的:(导出Excel)