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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-04-2009
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
¿y si defines tu campo en la base de datos como NUMERIC(12,2)?
__________________

Responder Con Cita
  #2  
Antiguo 15-04-2009
VRO VRO is offline
Miembro
 
Registrado: abr 2004
Posts: 230
Poder: 23
VRO Va por buen camino
decimales

Me parece buenisima idea lo del numeric (12,2), pero en el caso que introduzcas un entero p.ej 3 no le guarda con 2 decimales ¿O debería hacerlo y estoy haciendo algo incorrecto?


Gracias por vuestra ayuda
Responder Con Cita
  #3  
Antiguo 10-11-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Poder: 17
gonza_619 Va por buen camino
bien mi problemas es que quiero verificar si un resultado es entero o decimal ej:

x=713/6
if x es entero then
showmessage(es entero)
else
showmessage(es decimal);

esta seria la idea pero nose como hacerlo , gracias
en si no quiero que sea decimal , evitar ese resultado o que tenga coma(,)
se podria hacer con excepcion?

Última edición por gonza_619 fecha: 10-11-2010 a las 23:40:45.
Responder Con Cita
  #4  
Antiguo 11-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola gonza.

Podes hacer así:
Código Delphi [-]
...
var
  x: Double;
begin
  x:= 713/6;
  if x = Trunc(x) then
    ShowMessage('Entero')
  else
    ShowMessage('Decimal');
end;
...

Saludos.
Responder Con Cita
  #5  
Antiguo 11-11-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Poder: 17
gonza_619 Va por buen camino
lo probare gracias
Responder Con Cita
  #6  
Antiguo 11-11-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Poder: 17
gonza_619 Va por buen camino
Código Delphi [-]
var  x: Double;
begin
x:=strtofloat(edit3.text)/strtofloat(edit2.text);
  if x = Trunc(x) then
  begin
    ShowMessage('Entero') ;
   end
  else
  begin
    ShowMessage('Decimal');
  end;

asi me funciono muchas gracias
Responder Con Cita
Respuesta


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
Guardar datos en Base de Datos MySQL knnibal Conexión con bases de datos 6 23-06-2011 15:36:42
Guardar en 1 base de datos SQL, datos procedentes de 2 tablas distintas adaypr C++ Builder 1 05-09-2006 11:56:33
guardar tabla en base de datos emiliu HTML, Javascript y otros 0 09-06-2006 19:25:55
Guardar QR en base de datos jose_c27 Impresión 1 06-11-2005 03:32:16
guardar un jpg en una base de datos ing_alsaac Gráficos 1 16-10-2003 01:15:16


La franja horaria es GMT +2. Ahora son las 05:47:05.


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