Los enteros y cardinales me traen frito

[Cecilio]

Hola...

¿ como haces para realizar algo tan sencillo como esto:

Progressbar1.Max:=timer1.Interval / 1000;


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

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]

Para numeros enteros debes usar la division entera.

Progressbar1.Max:=timer1.Interval div 1000;

[Cecilio]

Mira que era fácil.

Gracias infinitas. :-)

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