Ver Mensaje Individual
  #1  
Antiguo 29-06-2008
Cecilio Cecilio is offline
Miembro
 
Registrado: ago 2007
Posts: 140
Reputación: 17
Cecilio Va por buen camino
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.
__________________
Saludos Cordiales.
------------------

Responder Con Cita