delphi 2010 dbgrideh EhLib5.0.13 µ¼³öÎļþ³ö´í

Delphi(Pascal) code:


function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
begin
result:=True ;
savedialog1:=tsavedialog.Create(nil);
savedialog1.Filter:='Excel Îļþ(*.xls)|*.xls|·Ö¸ô·û¸ñʽ(*.csv)|*.csv|HtmlÎļþ(*.htm)|*.htm|WORD Îļþ(*.rtf)|*.rtf|Îı¾Îļþ(*.txt)|*.txt';
savedialog1.FileName:=filename;
if (dbgrideh is TDBGridEh) then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'txt'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;

if sysutils.FileExists( SaveDialog1.FileName) then
begin
if application.MessageBox('ÎļþÒÑ´æÔÚ,Ìæ»»?','Ìáʾ',mb_yesno+mb_defbutton1+mb