输出到逗号分隔文件（.csv)，可直接由Excel读取：
procedure ExportDBGridToCSVFile(const aDBGrid:TDBGrid;const aFileName:string);
var aValue,LineStr:string;
aTextFile:TextFile;
i,ifc:integer;
begin
aDBGrid.DataSource.DataSet.DisableControls;
AssignFile(aTextFile,aFileName);
Rewrite(aTextFile);
Try
ifc:=aDBGrid.FieldCount-1;
linestr:='';
for i := 0 to ifc do begin
aValue := aDBGrid.Columns.Title.Caption;
if Pos(',',aValue) > 0 then aValue := '"' + aValue + '"';
LineStr:=LineStr + aValue + ',';
end;
Delete(LineStr,length(LineStr),1);// remove extra ','
Writeln(aTextFile,LineStr);
aDBGrid.DataSource.DataSet.First;
While not aDBGrid.DataSource.DataSet.EOF do begin
linestr:='';
for i := 0 to ifc do begin
aValue := aDBGrid.Fields.DisplayText;
if Pos(',',aValue) > 0 then aValue := '"' + aValue + '"';
LineStr := LineStr + aValue + ',';
end;
Delete(LineStr,length(LineStr),1);// remove extra ','
Writeln(aTextFile,LineStr);
aDBGrid.DataSource.DataSet.Next;
end; // while
finally
aDBGrid.DataSource.DataSet.EnableControls;
try
Flush(aTextFile);
CloseFile(aTextFile);
except
end;
end;
end;
