Hallo!
Du solltest deine IF Bedingungen mit BEGIN und END einschließen, sonst wird nur die erste Zeile gemacht, wenn diese zutrifft!
Delphi-Quellcode:
iF A = B Then
begin
A := B + C;
B := A + B;
end;
//Bzw. 1 Zeile
iF A = B Then
A := B + C;
In deinem Fall würd ich einen Timer hernehmen, mit einem Intervall von 10 oder so, bei diesem Enabled auf FALSE stellen!
Delphi-Quellcode:
var
Sekunden, Minuten, Nachspielzeit, GesamtZeit : Integer;
Timer.onTimer;
begin
//
inc(Sekunden); //Sekunden := Sekunden + 1;
//
iF Sekunden >= 60 Then
begin
Sekunden := 0;
inc(Minuten);
end;
//
Label10.Caption := 'Ausgeben';
//Gesamtzeit = 90 (Normalzeit) + Nachspielzeit(??)
iF Minuten >= GesamtZeit Then
Timer1.Enabled := FALSE;
end;
//ButtonCLICK
Button.onClick;
begin
iF Button.Caption = 'Starten' Then
begin
Sekunden := 0;
GesamtZeit := 90:
Minuten := 0;
Timer1.Enabled := TRUE;
Button.Caption := '';
exit;
end ELSE iF BUtton.Caption = 'Nachspiel' Then
begin
Nachspielzeit := 3;
GesamtZeit := GesamtZeit + Nachspielzeit;
Timer1.Enabled := TRUE;
Button1.Caption := '';
EXIT;
end ELSE
begin
//Zurücksetzen
//...
end;
end;
lg