自动换行的字符：#$Dx, y : stringxx : string ;for i=o to RichEdit1.Lines.Count-1 do begin x:= RichEdit1.Lines.Strings[i] y:= copy(x,1,pos(#$D,x)) ; xx:= xx + y ;end;xx 就是去掉自动换行的字符串了。
WordWrap属性设置false
