鱼C论坛

 找回密码
 立即注册
查看: 2847|回复: 3

[已解决]delphi怎么删除richedit中的空行

[复制链接]
发表于 2019-6-11 12:46:21 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
例如:

form2.Top :=20; form2.Left :=500;

form2.Left :=500; form2.Left :=500;

form2.Top :=20; form2.Left :=500;

form2.Left :=500; form2.Left :=500;

删除后让richedit中=
form2.Top :=20; form2.Left :=500;
form2.Left :=500; form2.Left :=500;
form2.Top :=20; form2.Left :=500;
form2.Left :=500; form2.Left :=500;
最佳答案
2019-6-11 21:04:04
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   str: string;
  4. begin
  5.   str := stringReplace(RichEdit1.text, #13#10#13#10, #13#10, [rfReplaceAll]) ;
  6.   RichEdit1.Text := str;
  7. end;

  8. end.
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2019-6-11 21:04:04 | 显示全部楼层    本楼为最佳答案   
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   str: string;
  4. begin
  5.   str := stringReplace(RichEdit1.text, #13#10#13#10, #13#10, [rfReplaceAll]) ;
  6.   RichEdit1.Text := str;
  7. end;

  8. end.
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-6-13 17:02:55 | 显示全部楼层

谢谢,你这样只能删除一个空行,多个空行不行,我已经解决了
var i:integer;
  for i := (RichEdit1.Lines.Count - 1) downto 0 do
  begin
   if RichEdit1.Lines[i] = '' then RichEdit1.Lines.Delete(i);

  end;
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2019-6-15 19:35:20 | 显示全部楼层
wuxiaoman 发表于 2019-6-13 17:02
谢谢,你这样只能删除一个空行,多个空行不行,我已经解决了
var i:integer;
  for i := (RichEdit1.Li ...

这个办法好
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-6-7 01:52

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表