FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
¡ huuuuyyyy que caracter !, reconozco que me equivoque de foro pero no es necesario ese tono que utilizas para corregirme no soy perfecto....y tu ?
|
#2
|
|||
|
|||
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;
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
#3
|
||||
|
||||
Para Delphi >= 4:
S := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]); // Saludos |
#4
|
||||
|
||||
ghSinEspacios
¡Buen día a todos!
En estos casos utilizo la función ghSinEspacios de Interfaz GH 7: 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. |
|
|
|