|
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);
|