怎样去掉richedit中每行中的硬回车,并进行段落重排

ccc 2000-05-08 06:57:00
...全文
282 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccc 2000-06-14
  • 打赏
  • 举报
回复
大家的热情我很感动,综合hhzh和shylsz的说法就能完成这个操作,在此用仅有的一点点分数廖表谢意!
menxin 2000-06-13
  • 打赏
  • 举报
回复
很多方法了。

还可以这样:
while pos(#13#10,richedit1.text)<>0 do
delete(richedit1.text,#13#10);
shylsz 2000-06-11
  • 打赏
  • 举报
回复
一个硬回车相当与#13#10两个字符
hhzh426 2000-06-10
  • 打赏
  • 举报
回复
trichedit是的内容其实是一个tstrings类型,如果想去掉硬回车
只需将所有的line合并为一个line,前提条件是你的内容不能太多。
string1:string;
for i:=0 to richedit.lines.count-1 do
string1:=string1+richedit.lines[i];
richedit.text:=string1;
上面程序可以实现,在Y2K、DELPHI5中实现。
snakezou 2000-05-09
  • 打赏
  • 举报
回复
procedure del;
var i,position: integer;
begin
for i:=richedit1.lines.count-1 downto 0 do
begin
position:=pos(chr(13)+chr(10),richedit1.lines[i]);
if position>0 then
richedit1.lines[i]:=copy(richedit1.lines[i],1,position-1);
end;
end;

我想应该能行,至于段落重排,我不知道你想要什么效果,也无法帮你了。
注: 这段程序我可没有试过,只是想当然而已。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧