• SMExportToXLS导出时自动去掉尾部空格

    • 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;

Powered by Typecho)))   ICP:蜀ICP备05009250号