Thema: Delphi Nimm-Spiel

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#20

Re: Nimm-Spiel

  Alt 1. Okt 2008, 20:29
Zitat:
Die erste Aufgabe bestand darin, die Buttons so zu programmieren das immer 1 Gegenstand pro Click verschwindet und wenn der letzte Gegenstand der Reihe weg war sollte auch der Button verschwinden. Soweit kein Problem, dass habe ich geschafft.
Dann kriegst Du den Rest auch noch hin.
Am Anfang definierst Du Dir eine sogenannte globale Variable "Gesamt".
Delphi-Quellcode:
implementation

var Gesamt: integer = 15; //hier hin, direkt unter implementation
Und im OnClick der Buttons fügst Du jeweils eine Zeile ein, die Gesamt herunterzählt.
Gesamt := Gesamt - 1; Nun prüfst Du ab, ob Gesamt 0 ist und reagierst dann darauf.
Delphi-Quellcode:
if Gesamt = 0 then
  ShowMessage('Alle weg'); //oder was Du sonst so ausgeben möchtest
Versuch' s mal und wenn Du nicht weiterkommst, fragen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat