FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
quitar espacios en blanco de un string
Como puedo quitar los espacios en blanco de una cadena
Ejemplo: x:= 'NOMBRE DEL PADRE'; Que me regrese x:= 'NOMBREDELPADRE'; De antemano gracias.... |
#2
|
|||
|
|||
Hola rmnart, pueden haber varias formas pero puedes probar con esta:
Código:
procedure TForm1.Button1Click(Sender: TObject); var S: string; begin S := edit1.Text; while Pos(' ', S) > 0 do Delete(S, Pos(' ', S),1); edit2.Text:=s; end; Saludos |
#3
|
||||
|
||||
O bien puedes usar:
Código:
Cadena := StringReplace(Cadena, ' ', '', [rfReplaceAll]);
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#4
|
|||
|
|||
Gracias Fede' Firenze. la mejor respuesta!!!! +10
|
#5
|
||||
|
||||
+10 ¿taringa? , , es broma
__________________
all your base are belong to us |
|
|
|