Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Float o Integer (https://www.clubdelphi.com/foros/showthread.php?t=37825)

Caral 23-11-2006 17:44:18

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

Neftali [Germán.Estévez] 23-11-2006 18:05:01

¿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;

roman 23-11-2006 18:21:34

Me parece que también podría usarse el operador div:

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

// Saludos

Neftali [Germán.Estévez] 23-11-2006 18:46:01

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 = ' '

roman 23-11-2006 18:58:01

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

Caral 23-11-2006 19:12:57

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

Caral 23-11-2006 20:05:18

Hola
Ya esta probado, Perfecto, Gracias
Saludos

vtdeleon 23-11-2006 20:37:03

Y que tal mod??
Código Delphi [-]
Resultado := StrToInt(Edit1.Text) mod StrToInt(Edit2.Text);
if resultado >0 then
 edit3.clear;

Saludos

Robert01 24-11-2006 02:22:21

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

Neftali [Germán.Estévez] 24-11-2006 10:23:31

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.


La franja horaria es GMT +2. Ahora son las 16:22:00.

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