Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 05-02-2007
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Poder: 24
ixMike Va por buen camino
Sí, claro que se puede:

Código Delphi [-]
 
If IsFloat(Edit1.text) then [...]
If IsInteger(Edit1.text) then [...]

pero necesitarás esto:

Código Delphi [-]
 
function IsFloat(s: string): boolean;
var n: double;
begin
try
 n:=StrToFloat(s);
 result:=True;
 except
 result:=False;
 end;
end;
 
function IsInteger(s: string): boolean;
var n: integer;
begin
try
 n:=StrToInt(s);
 result:=True;
 except
 result:=False;
 end;
end;

Lo que hace cada función es convertir el contenido del Edit.Text a una variable numérica del correspondiente tipo. Si todo va bien, pues es válido, sino, pues da error.

Espero que te sirva de ayuda.

Saludos.

PD: las funciones se me acaban de ocurrir, no sé si Delphi ya tiene alguna por el estilo implementada.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
conversión a entero anto1178 Varios 3 29-08-2006 19:50:32
Cantidad de digitos de un entero kikodelphi OOP 2 06-12-2005 18:51:28
Convertir fecha en entero... zorro Varios 1 20-03-2005 10:37:21
De entero a hexa, y hexa a entero (o string) emeceuy Varios 5 02-06-2004 18:23:13
4 bytes a un entero ssaavedra Varios 1 09-01-2004 20:12:11


La franja horaria es GMT +2. Ahora son las 07:17:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi