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;
beginl:=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;
beginClientDataSet1.Edit;MyList:=TStringList.Create;MyList.Text:=DBRichEdit1.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit1.Text:=PrintText(MyList.Text);MyList.Text:=DBRichEdit2.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit2.Text:=PrintText(MyList.Text);MyList.Text:=DBRichEdit3.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit3.Text:=PrintText(MyList.Text);MyList.Text:=DBRichEdit4.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit4.Text:=PrintText(MyList.Text);MyList.Text:=DBRichEdit5.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit5.Text:=PrintText(MyList.Text);MyList.Text:=DBRichEdit6.Text;FormatText(MyList);                                             // 格式化 StringListDBRichEdit6.Text:=PrintText(MyList.Text);MyList.Free;UpDataClientOne(ClientDataSet1,'个案_接案'); // ClientDataSet保存更新数据

Delphi TStringList DBRichEdit 删除尾部多余换页符相关推荐

python怎么去掉换行符_如何在Python中删除尾部换行符？
如何在Python中删除尾部换行符? 什么是Perl的chomp函数的Python等价物,如果它是换行符,它会删除字符串的最后一个字符? 26个解决方案 1473 votes 尝试方法lstrip() ...
Delphi程序自删除
总结了一下Delphi程序自删除的几种方法 program Project1; //方法一 uses Windows; function WinExec(lpCmdline: PAnsiChar ...
python 删除尾部0_python之List常见操作
# -*- coding: utf-8 -*- """ Created on Mon Sep 28 08:52:37 2020@author: 安辰 "&quo ...
Linux升级内核以及删除Linux多余的内核
Linux升级内核以及删除Linux多余的内核很多童鞋在玩耍linux发行版的时候,都会遇到各种各样的问题,比如:网卡不能使用,亮度不能调节,触摸板不能识别,蓝牙不能使用等等,这些关系都和linux ...
word 删除带分节符的空白页
word 删除带分节符的空白页 ctl+shift+8 可以显示出来分节符然后选中删除掉即可或者点击右键剪切走即可
DELPHI中如何删除已经注册的MIDAS
DELPHI中如何删除已经注册的MIDAS Delphi / Windows SDK/API http://www.delphi2007.net/DelphiNetwork/html/delphi_2 ...
Word文档中出现无法删除的多余的横向或纵向空白页时该怎么办？
教你如何处理Word文档中出现无法删除的多余的横向或纵向空白页打开word中"页面设置",之后选择选择"节的开始位置"--"连续本页"或& ...
批量删除-获取页面id-字符串拼接做法
批量删除-获取页面id-字符串拼接做法做法思路首先来说说思路,肯定是先在前端页面获取选中的复选框的数组,这是第一步,然后这里我想的是将数组直接拼接成字符串,将字符串传值给我后台已经做好的单个删除的 ...
Word怎么删除由分节符、分页符、分栏符、表格等导致的空白页
一个Word文档原本好好的,在反复的编辑过程也不知道为什么产生了空白页,它们应该怎么删除呢?这要看由什么导致的空白页,不同的情况删除方法有些差异,以下列举了Word怎么删除空白页七种情况,它们分别为由 ...
新版本的AutoCAD2018 怎样删除 A360 Drive盘符
通常的做法,如下: (1)点击开始菜单的"运行"(Win+R或者Win+X快捷选择运行),在弹出的对话框输入"regedit",回车,进入注册表编辑器. (2) ...

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

Delphi TStringList DBRichEdit 删除尾部多余换页符相关推荐

最新文章

热门文章