Los enteros y cardinales me traen frito

[Cecilio]

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]]

Para numeros enteros debes usar la division entera.

Código Delphi [-]
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)