Borrar espacios intermedios

[Delfino]

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

no la encuentro

[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;

[[seoane]]

Yo usaría un StringReplace:

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

[Neftali [Germán.Estévez]]

Jesús, ¡¡Qué nombres!!

Empezado por dec

SatanizeString(str: string): string;

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

[dec]

Hola,

Je, je, je...

[Delfino]

StringReplace(Str,#32,'',[rfReplaceAll]);

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:

function TrimSpaces(str: String) : String;
 var i: Integer;
begin
for i := 1 to length(str)  do
 begin
  if str[i] = ' ' then
  Delete(str,i,1);
 end;
Result := str;
end;

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

[[seoane]]

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]);