Uso de cadenas - Foros Club Delphi

05-04-2006

dec

Moderador

Registrado: dic 2004

Ubicación: Alcobendas, Madrid, España

Posts: 13.114

Poder: 34

Hola,

Yo haría algo más o menos esto:

Código Delphi [-]function QuitarSimboloPeso(cadena: string) : string;
var
  i: integer;
begin
  for i := 1 to Length(cadena) do
    if (cadena[i] in ['0'..'9', '.']) then
      Result := Result + cadena[i];
end;

Se admiten sugerencias para mejorarlo.

__________________
David Esperalta
www.decsoftutils.com

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Formatear cadenas	JulioGO	PHP	1	03-04-2006 03:53:16
Separar Cadenas	ronson	Varios	2	25-07-2005 18:01:46
if ... in [] con cadenas????	neon	Varios	3	10-12-2004 13:15:39
comparación de cadenas	perico	Varios	1	22-06-2004 23:52:28
Trabajar con cadenas	judoboy	OOP	6	26-05-2003 13:52:15

La franja horaria es GMT +2. Ahora son las 18:33:59.