AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz
Thema durchsuchen
Ansicht
Themen-Optionen

tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

Ein Thema von biby90 · begonnen am 22. Aug 2011 · letzter Beitrag vom 31. Aug 2011
Thema geschlossen
Benutzerbild von mleyen
mleyen

Registriert seit: 10. Aug 2007
609 Beiträge
 
FreePascal / Lazarus
 
#1

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 12:11
Beschreibung:
9 labels auf der form und einem array als datenstruktur. /wie macht man das?
9 farbige Labels für die Spielerzüge, welche nach den Klicks der Spieler hier rein gespeichert werden:
Delphi-Quellcode:
type
  TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2);
var
  TicTacToeSlots: array[0..2] of array[0..2] of TTicTacToeSlot;
 
Benutzerbild von DeddyH
DeddyH

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

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 12:15
Obwohl ich auch ein 2-dimensionales Array verwenden würde glaube ich nicht, dass das hier gefordert ist. In dem Fall wäre es nämlich auch geschickter, den Funktionskopf
Zitat:
IsFieldEmpty(var AIndex): boolean
anders zu deklarieren:
IsFieldEmpty(XPos, YPos): boolean Damit entfällt dann ein lästiges Umrechnen.
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
 
biby90
(Gast)

n/a Beiträge
 
#3

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 12:27
oha so viele möglichkeiten... dann versuch ichs mal
 
biby90
(Gast)

n/a Beiträge
 
#4

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 12:48
wofür soll den das array gut sein.... nur damit ich das verstehe was ich hier mache. bringt ja nichts wenn ich ein array irgendwo einbaue aber nicht weiß wieso
 
Benutzerbild von DeddyH
DeddyH

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

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 12:51
3 Zeilen, 3 Spalten -> array[1..3, 1..3]
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
 
biby90
(Gast)

n/a Beiträge
 
#6

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 13:30
Zitat:
type
TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2);
ist das für den 2 spieler modus?
 
Benutzerbild von DeddyH
DeddyH

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

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 13:33
Das Spiel macht mit nur einem Spieler ja keinen Sinn. Ob der nun menschlich oder eine KI ist, spielt dabei ja keine Rolle. Sofern es Dir eher behagt, kannst Du den Typ ja ein wenig anders deklarieren:
Delphi-Quellcode:
type
  TTicTacToeSlot = (tttsFree, //Feld ist frei
                    tttsX, //Feld ist mit "X" belegt
                    tttsO //Feld ist mit "O" belegt
                   );
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
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.401 Beiträge
 
Delphi 12 Athens
 
#8

AW: tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

  Alt 22. Aug 2011, 13:35
Jupp.

Ist wie bei einem Integer, also unterschiedliche Zahlen/Werte in jedem Feld.
Nur daß hier die einzelnen Werte keine Zahl sind, sondern einen Namen haben.



z.B.:
TTicTacToeSlot = Boolean; False = kein Stein auf dem Feld
True = irgendein Stein auf dem Feld

TTicTacToeSlot = Integer; 0 = kein Stein auf dem Feld
1 = Stein von Spieler 1 auf dem Feld
2 = Stein von Spieler 2 auf dem Feld

TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2); tttsFree = kein Stein auf dem Feld
tttsPlayer1 = Stein von Spieler 1 auf dem Feld
tttsPlayer2 = Stein von Spieler 2 auf dem Feld
Ein Therapeut entspricht 1024 Gigapeut.
 
Thema geschlossen


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz