Nachspielzeit (Fußball) programmieren

[IceBube]

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