var
S: string;
begin
S := RichEdit1.Text;
S := StringReplace(S, #$D#$A, '', [rfReplaceAll]);
//去掉Richedit的回车和换行^^^^^
Edit1.Text := S;
end;
S: string;
begin
S := RichEdit1.Text;
S := StringReplace(S, #$D#$A, '', [rfReplaceAll]);
//去掉Richedit的回车和换行^^^^^
Edit1.Text := S;
end;
Edit1.text:=RichEdit1.lines.text;
s;string;
i;integer;
for i:=o to RichEdit1.line.count-1 do
s:=s+reichedit1.line[i];
edit1.text:=s;