Mein programm funktioniert nicht

[PetBurki]

Ich habe ein kleines spiel geschrieben, dass aber nicht funktioniert. Es sind 2 schiffe abgebildet und es gibt 2 knöpfe unter dem jeweiligen schiff und eine lebensanzeige. Durch einen klick auf den eigenen button 'schießt' man auf das andere schiff und es wird leben beim gegner abgezogen. Wenn nun das leben des einen schiffes 0 erreicht, soll ein label sichtbar werden. Gewinnt spieler1 funktioniert das auch. Wenn aber der2. spieler gewinnt wird das label nicht angezeigt. könnte vielleicht jemand mal drüberschauen? Wär echt nett.

[Matze]

Hi, ich habe es nur überflogen:

Delphi-Quellcode:

edit2.Text:=IntToStr(leben);

if StrToInt(edit2.Text)<=0  then ...

Delphi-Quellcode:

edit1.Text:=IntToStr(leben);

if StrToInt(edit2.Text)<=0  then ...

Ich denke, du musst in der 2. if-Abfrage den Inhalt von Edit1 überprüfen (Also ein Copy&Paste-Fehler deinerseits, nehme ich an).


Achja, rufe Randomize nur einmalig im OnCreate auf, nicht bei jedem Buttonklick.

[PetBurki]

vielen dank