quitar espacios en blanco de un string

[rmnart]

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]

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

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]

O bien puedes usar:

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

Saludos!

[BillyYakira]

Empezado por delphi.com.ar

O bien puedes usar:

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

Saludos!

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

[look]

Empezado por BillyYakira

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

+10 ¿taringa? , , es broma