关于DBGRIDEH导出数据到CSV

在通常情况下使用DBGRIDEH导出的到CSV中的数据是这个样子的

"a","b","c"

可能我们并不希望它这样显示，有可能希望它显示成种状态

a,b,c

如果想这样，我们可以修改DBGRIDEH里面的DBGridEhImpExp.pas文件

具体修改如下：增加一个自己的导出到CSV的类

{ TMyDBGridEhExportAsCVS }

TMyDBGridEhExportAsCVS = class(TDBGridEhExportAsText)

private

FSeparator: Char;

protected

procedure CheckFirstCell; override;

procedure WriteTitle(ColumnsList: TColumnsEhList); override;

procedure WriteDataCell(Column: TColumnEh; FColCellParamsEh: TColCellParamsEh); override;

procedure WriteFooterCell(DataCol, Row: Integer; Column: TColumnEh; AFont: TFont;

Background: TColor; Alignment: TAlignment; Text: String); override;

public

constructor Create; override;

property Separator: Char read FSeparator write FSeparator;

end;

{ TMyDBGridEhExportAsCVS }

procedure TMyDBGridEhExportAsCVS.CheckFirstCell;

var s: String;

begin

if FirstCell = False then

begin

s := Separator;

StreamWriteString(Stream, s);

// Stream.Write(PChar(s)^, Length(s))

end else

FirstCell := False;

end;

constructor TMyDBGridEhExportAsCVS.Create;

begin

Separator := ',';

inherited Create;

end;

procedure TMyDBGridEhExportAsCVS.WriteDataCell(Column: TColumnEh; FColCellParamsEh: TColCellParamsEh);

var s: String;

begin

CheckFirstCell;

s := FColCellParamsEh.Text;

StreamWriteString(Stream, s);

// Stream.Write(PChar(s)^, Length(s));

end;

procedure TMyDBGridEhExportAsCVS.WriteFooterCell(DataCol, Row: Integer;

Column: TColumnEh; AFont: TFont; Background: TColor;

Alignment: TAlignment; Text: String);

var s: String;

begin

CheckFirstCell;

s := Text;

StreamWriteString(Stream, s);

// Stream.Write(PChar(s)^, Length(s));

end;

procedure TMyDBGridEhExportAsCVS.WriteTitle(ColumnsList: TColumnsEhList);

var i: Integer;

s: String;

begin

CheckFirstRec;

for i := 0 to ColumnsList.Count - 1 do

begin

s := ColumnsList[i].Title.Caption;

if i <> ColumnsList.Count - 1 then

s := s + Separator;

StreamWriteString(Stream, s);

// Stream.Write(PChar(s)^, Length(s));

end;

end;

Good luck!