Delphi-PRAXiS - Mein programm funktioniert nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Mein programm funktioniert nicht (https://www.delphipraxis.net/92020-mein-programm-funktioniert-nicht.html)

PetBurki

13. Mai 2007 13:54

Mein programm funktioniert nicht

Liste der Anhänge anzeigen (Anzahl: 1)

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

13. Mai 2007 13:57

Re: Mein programm funktioniert nicht

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.

DP-Maintenance

13. Mai 2007 13:58

DP-Maintenance

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

PetBurki

13. Mai 2007 14:12

Re: Mein programm funktioniert nicht

vielen dank

Alle Zeitangaben in WEZ +1. Es ist jetzt 07:52 Uhr.