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:

Código Delphi [-]
 {: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.