Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Eliminar salto de linea de una cadena (https://www.clubdelphi.com/foros/showthread.php?t=21324)

pablomg8 13-05-2005 12:47:14

Eliminar salto de linea de una cadena
 
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] 13-05-2005 14:02:40

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 13-05-2005 15:35:44

lo probaré.


Gracias.


La franja horaria es GMT +2. Ahora son las 13:12:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi