Autor Beitrag
marcon01
Hält's aus hier
Beiträge: 11



BeitragVerfasst: Do 10.11.11 16:17 
Moderiert von user profile iconNarses: Abgetrennt von [url=www.delphi-forum.de/...7#654027]hier[/url].

Hallo,

eine Frage habe ich noch ^^.
Und zwar:
Nehmen wir an 2 Leute spielen Tic Tac Toe.
Da dieses Spiel sehr kurz ist spielt man mehrere Runden.
Also möchte ich immer wenn "X" oder "O" gewonnen hat den Wert in ein Edit ablegen.
Zum Beispiel hat "X" 8mal gewonnen und "O" 5mal also steht in edit1:8 und in edit2:5.

Wenn ich da Spiel das erste mal beende zählt er auch 1 aber er zählt nich hoch also +1 sondern bleibt immer auf 1.

Meine if-Abfrage:
ausblenden Delphi-Quelltext
1:
2:
    if (Label2.Caption = 'X WINS!'then  Edit1.text := IntToStr(zahlx);
      if (Edit1.text = IntToStr(zahlx)) then Edit1.text := Edit1.text(zahlx + 1);
Ja ich weis ist übel aber learning by doing XD
Danke.

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


Zuletzt bearbeitet von marcon01 am Do 10.11.11 17:03, insgesamt 1-mal bearbeitet
thepaine91
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 763
Erhaltene Danke: 27

Win XP, Windows 7, (Linux)
D6, D2010, C#, PHP, Java(Android), HTML/Js
BeitragVerfasst: Do 10.11.11 16:24 
An der Stelle an der du die Caption "X Wins" setzt solltest du auch gleich die Anzahl der Gewinne erhöhen und nicht später nochmal die Caption abfragen.
Dann musst du auch nur je nach dem wer gewonnen hat die Zahl der Gewinne +1 in das entsprechende Feld schreiben.
marcon01 Threadstarter
Hält's aus hier
Beiträge: 11



BeitragVerfasst: Di 15.11.11 09:23 
Moin,

habe viel probiert aber es will nicht so ganz.
weis auch nicht genau was ich falsch mache deine idee
scheint sinnig.
Aber meine Umsetzung ist naja -.-

könntest du mir ein Ansatz geben nur ein Ansatz nicht die Lösung ^^
will lernen nicht abschreiben ;)

Solltest du was schreiben vielen dank:D

ansonsten danke für den tipp ^^
Andreas L.
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1703
Erhaltene Danke: 25

Windows Vista / Windows 10
Delphi 2009 Pro (JVCL, DragDrop, rmKlever, ICS, EmbeddedWB, DEC, Indy)
BeitragVerfasst: Di 15.11.11 09:36 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
  if Label2.Caption = 'X WINS!' then  
  begin
    zahlx := zahlx + 1;
    Edit1.text := IntToStr(zahlx);
  end;
marcon01 Threadstarter
Hält's aus hier
Beiträge: 11



BeitragVerfasst: Di 15.11.11 09:57 
Hallo ich nocheinmal XD,

es klappt soweit aber ich habe das Problem wie ich es schoneinmal hatte,
nämlich das er beim ersten mal gewinnen um 1 hochzählt aber er zählt nicht weiter
er bleibt also auf der 1 egal wie offt O oder X gewinnt.

muss ich das in den Button schreiben der das Spiel neustartet ?

danke.

Moderiert von user profile iconNarses: Beiträge zusammengefasst

Hat sich erledigt habe den Fehler gefunden THX :D !