Delphi TStringList DBRichEdit 删除尾部多余换页符

    编程过程中，对于文本的控件笔者，乐于使用DBRichEdit控件，主要是它可以设置行间距，显示的文本，比DBMemo友善多了。 

    但是，通过DBRichEdit控件，在将文字存入数据库时，通常通过TStringList进行逐行分段处理后，再通过DBRichEdit控件存入数据。但是Delphi的TStringList控件，通过Text存入数据时，它的最后一行是一个换页符。在打印时，就会多出一个空白行。

    DBMemo效果：

 正常的打印：

一个空白行，有时造成打印的溢出。

问题解决：

一、Delphi10以下

TStringList，默认最后一行有#13#10字符（换页），可以通过删除最后的#13#10字符

    编程做一个函数解决：

function PrintText(S:string):String;   //  删除最后一行换页符
var l:integer;
begin
  l:=Length(S);
  if (L>0) and (S[l]=#10) then Delete(s,L,1);
  l:=Length(S);
  if (L>0) and (S[l]=#13) then Delete(s,L,1);
  PrintText:=S;
end;

     在通过TStringLists格式化字符时，通过PrintText过一下，再保存进DB日产Edit中。这样，彻底删除换页符。后期打印效果就不受影响。

    二、Delphi10以上

    Delphi10以上版本，TStringList有了改进，增加一些属性。

    设置TrailingLineBreak属性即可：

MyListt.TrailingLineBreak := False;

    三、常规处理

var MyList:TStringList;
begin
  ClientDataSet1.Edit;
  MyList:=TStringList.Create;

  MyList.Text:=DBRichEdit1.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit1.Text:=PrintText(MyList.Text);

  MyList.Text:=DBRichEdit2.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit2.Text:=PrintText(MyList.Text);

  MyList.Text:=DBRichEdit3.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit3.Text:=PrintText(MyList.Text);

  MyList.Text:=DBRichEdit4.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit4.Text:=PrintText(MyList.Text);

  MyList.Text:=DBRichEdit5.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit5.Text:=PrintText(MyList.Text);

  MyList.Text:=DBRichEdit6.Text;
  FormatText(MyList);                                             // 格式化 StringList
  DBRichEdit6.Text:=PrintText(MyList.Text);
  MyList.Free;
  UpDataClientOne(ClientDataSet1,'个案_接案'); // ClientDataSet保存更新数据