danielmj
07-04-2018, 14:52:31
Pongo esto aqui por que es parte de la misma aplicacion, por no abrir un hilo nuevo.
Tengo este codigo en un timer:
Hour, Min, Sec y MSec está declarados de tipo word
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);
//stB.Panels.Items[4].Text:=TimetoStr(Present)+':'+inttostr(MSec);
Label11.Caption := TimetoStr(Present)+':'+inttostr(MSec);
Y aunque funciona, tengo el problema de que los milisegundos no pasan rapido, más bien parecen segundos (ver tiempo en color rojo en el video) y es que el mismo codigo lo tengo en la version de delphi (es copiar y pegar) y si funciona correctamente. Alguna idea? Gracias.
https://drive.google.com/open?id=1neirklvQHlk3uRZqJfV4zJJhX_vwiCKB
Tengo este codigo en un timer:
Hour, Min, Sec y MSec está declarados de tipo word
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);
//stB.Panels.Items[4].Text:=TimetoStr(Present)+':'+inttostr(MSec);
Label11.Caption := TimetoStr(Present)+':'+inttostr(MSec);
Y aunque funciona, tengo el problema de que los milisegundos no pasan rapido, más bien parecen segundos (ver tiempo en color rojo en el video) y es que el mismo codigo lo tengo en la version de delphi (es copiar y pegar) y si funciona correctamente. Alguna idea? Gracias.
https://drive.google.com/open?id=1neirklvQHlk3uRZqJfV4zJJhX_vwiCKB