Borrar espacios intermedios

[dec]

Hola,

Afortundamente, siempre puedes construir tú mismo una función que recorra la cadena caracter a caracter, de modo que quite de ella todos los espacios vacíos. Algo como...

Código Delphi [-]
function SatanizeString(str: string): string;
var
  i: integer;
begin
  result := '';
  for i := 1 to Length(str) do
  begin
    if(str[i] <> ' ') then
      result := result+str[i];
  end;
end;