use SMEEngine

procedure TfrmXLSExport.SMExportToXLS1GetCellParams(Sender: TObject;
Field: TField; var Text: String; AFont: TFont; var Alignment: TAlignment;
var Background: TColor; var CellType: TCellType);
begin

  if Assigned(Field) then
  begin
      Text:=Trim(Text);
  end;

end;

Last modification:January 6th, 2015 at 04:49 am
如果觉得我的文章对你有用,请随意赞赏