Cronometro

[[egostar]]

Hola grone35

Alguna vez tuve la necesidad de hacer un cronometro y te lo dejo aqui por si te sirve o te da una idea de como hacerlo.

Código Delphi [-]
 
var
  Form1: TForm1;
  Present : TDateTime;
  Hour,Min,Sec,MSec: Word;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(MSec);
  If MSec = 100 then begin
     Sec := Sec + 1;
     MSec := 0;
  end;
  If Sec = 60 then begin
     Min := Min + 1;
     Sec := 0;
  end;
  If Min = 60 then begin
     Hour := Hour + 1;
     Min  := 0;
  end;
  Present := EncodeTime(Hour, Min, Sec, MSec);
  Label1.Caption := TimetoStr(Present)+' '+inttostr(MSec);;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  If Timer1.Enabled = False then begin
     Timer1.Enabled := True;
     BitBtn1.Caption := 'Pausa';
  end
  else begin
         Timer1.Enabled := False;
         BitBtn1.Caption := 'Inicia';
       end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Present := EncodeTime(0,0,0,0);
  Label1.Caption := '00:00:00 00';
end;

Use un timer con un intervalo de 1 milisegundo, un label y un bitbtn.

Espero que tambien sirva a alguien mas ya que en su momento me dio dolores de cabeza.

Saludos

[grone35]

Excelente egostar!!

Gracias fue de mucha ayuda!!!

[xelip]

tambien puedes crear cuatro variables e tipo word y despues donde quieras comenzar a contar :

SetTime(las variables separadas por comas);

cuando termies de contar :

GetTime(las variables separadas por comas);

muestras las variables.

Por nada...