Remover espacios en blanco de una cadena

[jarcmaster]

Hola a todos, y sobretodo gracias de antemano por sus respuestas. Estoy interesado en saber cómo remover los espacios en blanco de una cadena, por ej.:

cadena= 'ESTA ES LA CADENA'

debe quedar así:

cadena= 'ESTAESLACADENA'

Estuve probando con la opcion TRIM('cadena') pero no me funcionó, un poco de ayuda....

Gracias!

[maeyanes]

Esto te podría servir...


while Pos(' ', Str) > 0 do
Delete(Str, Pos(' ', Str), 1);



Saludos...

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:='Hola que tal estamos';
s:=StringReplace(s,' ','',[rfReplaceAll]);
ShowMessage(s);
end;



Un Saludo.