Foros Club Delphi - quitar espacios en blanco de un string

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - quitar espacios en blanco de un string (https://www.clubdelphi.com/foros/showthread.php?t=4172)

rmnart

04-10-2003 00:59:12

quitar espacios en blanco de un string

Como puedo quitar los espacios en blanco de una cadena
Ejemplo:
x:= 'NOMBRE DEL PADRE';
Que me regrese
x:= 'NOMBREDELPADRE';

De antemano gracias....

Ruben_Cu

04-10-2003 01:22:33

Hola rmnart, pueden haber varias formas pero puedes probar con esta:

Código:

procedure TForm1.Button1Click(Sender: TObject);

var S: string;

begin

  S := edit1.Text;

  while Pos(' ', S) > 0 do

    Delete(S, Pos(' ', S),1);

    edit2.Text:=s;

end;

La cadena escrita en edit1 será pasada a edit2 eliminando los espacios vacíos.
Saludos

delphi.com.ar

04-10-2003 01:40:54

O bien puedes usar:

Código:

Cadena := StringReplace(Cadena, ' ', '', [rfReplaceAll]);

Saludos!

BillyYakira

19-12-2009 09:32:05

Cita:

Empezado por delphi.com.ar (Mensaje 16645)

O bien puedes usar:

Código:

Cadena := StringReplace(Cadena, ' ', '', [rfReplaceAll]);

Saludos!

Gracias Fede' Firenze. la mejor respuesta!!!! +10

look	21-12-2009 15:24:32

Cita:

Empezado por BillyYakira (Mensaje 349165)

Gracias Fede' Firenze. la mejor respuesta!!!! +10

+10 ¿taringa? , :D, es broma ;)

La franja horaria es GMT +2. Ahora son las 22:11:53.