Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-11-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Float o Integer

Hola a todos
Primero saludarlos
Tengo una duda, tal vez tenga alguna solucion.
Tengo 3 edit., todos numericos.
La operacion que necesito hacer es una division normal, pero que si el resultado de esta es con decimales sea = 0 o nada el edit en blanco.
Ejemplo:
Tengo un numero ( edit1 = 3 )
Si la divido entre 2, osea pongo ( edit2 = 2 ), me da ( Edit3 = 1.5 ), osea con decimales, lo que necesito es que me de 0, ( Edit3 = 0 ).
Numero Edit1 = 3
Divisor Edit2 = 2
Resultado Edit3 = 0
o mejor Edit3 = ' ', osea nada.
Se podra ?
De antemano muchas gracias
Saludos
Responder Con Cita
  #2  
Antiguo 23-11-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
¿Te refieres a esto?
Lo puedes poner después de dividir. Lo que hace es que si el resultado no es exacto, lo convierte a ''.

Código Delphi [-]
  if (StrToFloat(Edit3.Text) <> Trunc(StrToFloat(Edit3.Text))) then begin
    Edit3.Text := '';
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 23-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Me parece que también podría usarse el operador div:

Código Delphi [-]
Resultado := StrToInt(Edit1.Text) div StrToInt(Edit2.Text);

// Saludos
Responder Con Cita
  #4  
Antiguo 23-11-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por roman
Me parece que también podría usarse el operador div
Pero eso no da el resultado deseado.

...osea con decimales, lo que necesito es que me de 0, ... o mejor Edit3 = ' '
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 23-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Tienes toda la razón, leí mal y estaba pensando en que Trunc(a/b) viene a ser lo mismo que a div b pero él de plano quiero cortar por lo sano.

// Saludos
Responder Con Cita
  #6  
Antiguo 23-11-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Gracias por las respuestas lo voy a intentar y comento si tengo alguna duda, esto lo estoy haciendo por la operacion que necesito desarrollar para buscar el minimo y maximo comun, ya me lleba un rato esto, pero va.
Saludos
Responder Con Cita
  #7  
Antiguo 23-11-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Ya esta probado, Perfecto, Gracias
Saludos
Responder Con Cita
  #8  
Antiguo 23-11-2006
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Y que tal mod??
Código Delphi [-]
Resultado := StrToInt(Edit1.Text) mod StrToInt(Edit2.Text);
if resultado >0 then
 edit3.clear;

Saludos
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #9  
Antiguo 24-11-2006
Robert01 Robert01 is offline
Miembro
 
Registrado: feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 19
Robert01 Va por buen camino
Cita:
Empezado por Caral
Hola
Ya esta probado, Perfecto, Gracias
Saludos
Caral: ¿porque no usás el código que te envié para calcular el MCM?

saludos
Responder Con Cita
  #10  
Antiguo 24-11-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Robert01
Caral: ¿porque no usás el código que te envié para calcular el MCM?
Creo qu esto hay que ponerlo en el hilo donde toca Robert, no aquí.
Un saludo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta



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
convertir un integer en hh:mm:ss jmlifi SQL 1 02-11-2005 18:00:44
string a Integer Juanito-Kun Varios 4 06-10-2005 12:53:43
Como Convertir un dato Integer ó Float a String en FireBird???? AGAG4 Firebird e Interbase 8 04-12-2004 02:59:47
de String a Integer!! kye_z Varios 2 20-11-2004 20:04:36
Integer en Oracle9 febito Oracle 1 28-05-2004 18:20:08


La franja horaria es GMT +2. Ahora son las 23:27:33.


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