Eliminar espacio

[Luis]

¡ huuuuyyyy que caracter !, reconozco que me equivoque de foro pero no es necesario ese tono que utilizas para corregirme no soy perfecto....y tu ?

[quetzal]

y si hicieras algo asi
var
x:byte;
r,r2:string;
begin
x:=1;
r:=Edit1.Text;
r2:='';
while (length(r)>=x) do
begin
if (r[x]<>' ') then
r2:=r2+r[x];
inc(x);
end;
Edit2.Text:=r2;
end;

[roman]

Para Delphi >= 4:

S := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);

// Saludos

[[Al González]]

¡Buen día a todos!


En estos casos utilizo la función ghSinEspacios de Interfaz GH 7:

Código Delphi [-]
Uses
  IGHCadenas;
...
  Cadena2 := ghSinEspacios (Cadena1);

la cual es más rápida que StringReplace cuando la cadena no es muy larga.

Espero esto sea de utilidad, seguimos en contacto.

Al González.