找到 DBGridEhXlsMemFileExporters.pas 单,并在该单元中,找到(大概在1128行)
procedure TDBGridEhToXlsMemFileExporter.WriteRecord;
将其中的代码:
p.Text := Column.DisplayText;
改成:
p.Text := AnsiToUtf8(Column.DisplayText);
即可。
找到 DBGridEhXlsMemFileExporters.pas 单,并在该单元中,找到(大概在1128行)
procedure TDBGridEhToXlsMemFileExporter.WriteRecord;
将其中的代码:
p.Text := Column.DisplayText;
改成:
p.Text := AnsiToUtf8(Column.DisplayText);
即可。