dxDbgrid修改dxGrExpt以导出text类型字段的数据

TdxDBGridExportExcel = class(TdxDBGridExport)

…………………

procedure DoWriteRecord(Node: TdxTreeListNode); override;

if Node = nil then

begin

//+++

if DataType = ftMemo then

S:=AsString

else

//+++

S := DisplayText

end

else

S := TdxDBGridNode(Node).Strings[Columns[VisColIndexes[i]].Index];