怎么删除memo里面的空行
我想一个代码能删除memo里面所有的空行

[解决办法]
Memo1.Text := StringReplace(Memo1.Text, #13#10#13#10, #13#10, [rfReplaceAll]);

偶也现学的
[解决办法]

Delphi(Pascal) code

var   i :integer ;   str :String ;for (i:= memo1.lines.count -1 to 0 ) dobegin   str = memo1.lines[i] ;   if (Trim(str) = '') then   begin      memo1.lines.delete(i) ; //我也不知道 写得对不对 ，你自己查一下Help   end;end ;
[解决办法]
就用循环删除吧，1楼方法对于多个不确定的多个空行不好去除
Delphi(Pascal) code
var  i:integer;begin  for i:=(memo1.lines.count -1) downto 0  do    if (Trim(memo1.lines[i]) = '') then      memo1.lines.delete(i);end;
[解决办法]
倒着循环删，就行了
[解决办法]
倒着删除
[解决办法]
探讨

就用循环删除吧，1楼方法对于多个不确定的多个空行不好去除

Delphi(Pascal) code
var
 i:integer;
begin
 for i:=(memo1.lines.count -1) downto 0  do
   if (Trim(memo1.lines[i]) = '') then
     memo1.lines.delete(i);
end;……