RichEdit, salto de linea

[atani123]

Prueba con lo siguiente


Function Substituye( cAnt, cNew : Char; sText : String) : String
Begin
// a currarsela con Copy y Pos.
End;


Var
sLinea : String;

sLinea := RichEdit1.Text;
sLinea := Substituye( #13, ' ', sLinea);
sLinea := Substituye( #10, '', sLinea);