Hey Leute,
bin neu hier, wollte erstmal "Hallo" sagen. Bin nicht so der Experte im Programmieren und hoffe, dass ich ich mich durch dieses Forum und eure Hilfe verbessern kann
Nun zu meiner Frage: Muss für die Schule eine "Sportanzeige" meiner Wahl programmieren, habe mich für Fußball entschieden, aber scheiter an der Nachspielzeit. Habe ein Fenster ( Form1 ), auf dem ich auf einen Button klicken will, dann soll ein Label auf Form2 erscheinen und in Sekunden los laufen. Wen ich wieder klicke soll es aufhören und beim dritten Klick soll die Anzeige wieder verschwinden. Dabei soll die Caption auf dem Button von Form1 sich ändern. Irgendwie funktioniert das beu mir aber noch nicht so ganz. Ich stelle euch mal rein was ich bisher eingegeben habe, hoffe ihr könnt mir sagen, wo der Fehler liegt.
Liebe Grüße
Giovinco
procedure TForm1.Button2Click(Sender: TObject);
var s, m: byte;
t : string;
begin
if Button2.Caption = 'Nachspielzeit'
then Form2.Label10.Visible := true;
Button2.Caption := 'Stop';
nach := nach + 1;
s := nach mod 60;
m := (nach div 60) mod 60;
t := Format('%2.2d:%2.2d',[m, s]);
Form2.Label10.Caption := t;
exit;
if Button2.Caption = 'Stop'
then nach := nach + 0;
Button2.Caption := 'Zurücksetzen';
s := nach mod 60;
m := (nach div 60) mod 60;
t := Format('%2.2d:%2.2d',[m, s]);
exit;
if Button2.Caption = 'Zurücksetzen'
then Button2.Caption := 'Nachspielzeit';
nach := 0;
s := nach mod 60;
m := (nach div 60) mod 60;
t := Format('%2.2d:%2.2d',[m, s]);
Form2.Label10.Caption := '00:00';
Form2.Label10.Visible := false;
exit;
end;