Foros Club Delphi - Los enteros y cardinales me traen frito

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Los enteros y cardinales me traen frito (https://www.clubdelphi.com/foros/showthread.php?t=57844)

Cecilio

29-06-2008 18:43:51

Los enteros y cardinales me traen frito

Hola...

¿ como haces para realizar algo tan sencillo como esto:

Código Delphi [-]Progressbar1.Max:=timer1.Interval / 1000;

Sengún mis escasos conocimientos, paso a float, hago la operación
algo así:

Código Delphi [-]var d:double;
begin
 d:=timer1.Interval;
d:=d / 1000;
ProgressBar1.Max:=StrToInt(FloatTostr(d));

Debe haber algo más fácil y rápido, pero no doy con el tema.

Gracias.

seoane

29-06-2008 18:48:59

Para numeros enteros debes usar la division entera.

Código Delphi [-]Progressbar1.Max:=timer1.Interval div 1000;

Cecilio

29-06-2008 18:52:15

Mira

Mira que era fácil.

Gracias infinitas. :-)

Mi código va a delgazar. (dieta de verano de los div)

La franja horaria es GMT +2. Ahora son las 18:13:54.