Borrar espacios intermedios
 

Hay alguna funcion en Delphi para borrar los espacios intermedios en una string?

no la encuentro :confused:

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;

Yo usaría un StringReplace:

Código Delphi [-]
StringReplace(Str,#32,'',[rfReplaceAll]);

Jesús, ¡¡Qué nombres!!

:p:p:p
Yo crearía la unit UStrSatanics.:D
Para ir añadiendola al uses...

Hola,

Je, je, je... :) :D

Estas seguro q esto funciona? lo he probado pero parece q no..

yo lo hago asi, pero pensaba q exisitiria alguna funcion q ahorre esto:

Esta funcion borra solo si hay un solo espacio, habra q modificarla para borrar si hay varios espacios contiguos..

Culpa mía, pensé que sabias como funcionaba StringReplace.

Es una función así que ahí que almacenar el resultado en alguna parte:

Código Delphi [-]
Str:= StringReplace(Str,#32,'',[rfReplaceAll]);