[已解决]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

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := stringReplace(RichEdit1.text, #13#10#13#10, #13#10, [rfReplaceAll]) ;
  RichEdit1.Text := str;
end;

end.

跳转到最佳答案楼层

冬雪雪冬

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := stringReplace(RichEdit1.text, #13#10#13#10, #13#10, [rfReplaceAll]) ;
  RichEdit1.Text := str;
end;

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

这个办法好