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]

O bien puedes usar:Cadena := StringReplace(Cadena, ' ', '', [rfReplaceAll]);
Saludos!
Gracias Fede' Firenze. la mejor respuesta!!!! +10

[look]

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

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