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;

Posted in 软件开发 at January 6, 2015. by 傻猫 .    Views: 2944    No Comments