Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Eliminar espacio (https://www.clubdelphi.com/foros/showthread.php?t=19327)

Luis 10-03-2005 19:05:00

Eliminar espacio
 
Hola, tengo una cadena guardada en una variable de tipo String, quiero eliminar el espacio que se encuentra en dicha cadena.

ej. seleccion := 'Inventario Actual'

se requiere asi: seleccion := 'InventarioActual'

como puedo quitar el espacio, la funcion Trim solo quita los espacios que hay al inicio o al final y no me sirve.

:confused:

roman 10-03-2005 19:31:47

¿Y esto qué tiene que ver con conexión con bases de datos?

Si quieres ayuda por lo menos tómate el tiempo de seleccionar el foro adecuado.

Muevo el hilo.

Luis 10-03-2005 19:55:02

¡ huuuuyyyy que caracter !, reconozco que me equivoque de foro pero no es necesario ese tono que utilizas para corregirme no soy perfecto....y tu ?

:mad:

quetzal 10-03-2005 21:03:01

y si hicieras algo asi
var
x:byte;
r,r2:string;
begin
x:=1;
r:=Edit1.Text;
r2:='';
while (length(r)>=x) do
begin
if (r[x]<>' ') then
r2:=r2+r[x];
inc(x);
end;
Edit2.Text:=r2;
end;

roman 10-03-2005 22:47:29

Para Delphi >= 4:

S := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);

// Saludos

Al González 11-03-2005 21:03:58

ghSinEspacios
 
¡Buen día a todos!


En estos casos utilizo la función ghSinEspacios de Interfaz GH 7:
Código Delphi [-]
Uses
  IGHCadenas;
...
  Cadena2 := ghSinEspacios (Cadena1);
la cual es más rápida que StringReplace cuando la cadena no es muy larga.

Espero esto sea de utilidad, seguimos en contacto.

Al González. :)


La franja horaria es GMT +2. Ahora son las 07:31: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