Remover espacios en blanco de una cadena
 

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!

Esto te podría servir...

Código Delphi [-]
while Pos(' ', Str) > 0 do
  Delete(Str, Pos(' ', Str), 1);

Saludos...

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

Un Saludo.