Hallo,
vielen Dank für die helfenden Hinweise und das Codebeispiel. Ich denke, dass ich dabei wieder was gelernt habe!
Ich würde nun gern Eure Meinung wissen, wie Ihr die laufenden Uhren verwalten/steuern würdet.
Aktuell ist die laufende Hauptzeit über einen Timer gelöst.
Schön ist sicher anders, aber ich wusste mir nicht anders zu helfen. Soll ich das Increasen/Decreasen der Strafzeitenuhren dann auch hier über den Timer machen, oder wäre das eher nicht so gut!?
Delphi-Quellcode:
//globale Deklaration
var
original: TSystemTime;
procedure TForm1.int_clockTimer(Sender: TObject);
begin
//check, how the clock should run
case rad_direction.ItemIndex of
0 : begin // clock should run asc
original.wsecond:= original.wSecond + 1;
if original.wSecond = 60 then begin
original.wSecond :=0;
original.wMinute :=original.wMinute + 1;
end;
end;
1 : begin // clock should run desc
//stop clock and end case, cause time is up
if (original.wSecond = 0) and (original.wMinute = 0) then
begin
//stop timer
int_clock.Enabled := false;
end
else
begin
if original.wSecond = 0 then begin
original.wSecond := 59;
original.wMinute := original.wMinute - 1;
end
else
original.wsecond := original.wSecond - 1;
end;
end;
end;
//show the clock - internal
lbl_mtime_int.Caption := Format('%.2d:%.2d', [original.wMinute,original.wSecond]);
btn_set_data.Enabled := not(int_clock.Enabled);
end;