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中实现。
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;