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

wuxiaoman

例如：

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. 
   
9. end.

复制代码

跳转到最佳答案楼层

冬雪雪冬

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. 
   
9. end.

复制代码

wuxiaoman

冬雪雪冬 发表于 2019-6-11 21:04

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

  end;

冬雪雪冬

wuxiaoman 发表于 2019-6-13 17:02
谢谢，你这样只能删除一个空行，多个空行不行，我已经解决了
var i:integer;
  for i := (RichEdit1.Li ...

这个办法好