Eliminar salto de linea de una cadena

[pablomg8]

Hola !!!!

Alguno sabeis ¿ cómo puedo quitar el salto de línea de una cadena?. Leo una cadena de un memo y quiero quitarle los saltos de línea, ya se que en el memo puedo decirle que no deje meter saltos de linea, pero necesito que se puedan meterlos y luego quitarlos.


Gracias.

[Neftali [Germán.Estévez]]

Puedes crear una función que te sustituya los caracteres de CR y LF por espacios. Yo suelo utilizar ésta o alguna variante:


{:Elimina los saltos de línea de un TStrings.
Elimina los saltos de línea (caracteres #10 y #13; salto de linea y salto
de carro) de un TStrings.
@param Strs TStrings del que se desean eliminar los caracteres
@param CharReplace Caracter a sustituir
}
function QuitarSaltosLinea(Strs: TStrings; CharReplace:String=STR_EMPTY):String;
var
Str:string;
begin
Str := AnsiReplaceStr(Strs.Text, #10, CharReplace);
Result := AnsiReplaceStr(Str, #13, CharReplace);
end;

[pablomg8]

lo probaré.


Gracias.