Forum: Object-Pascal / Delphi-Language
by mleyen,
25. Aug 2011
Hier liegt das Problem. Bei normalen Arrays fängt der Index bei 0 an.
Mach das so:
//...
TMyArr = array of string;
TForm1 = class(TForm)
//...
function CheckForWin(AIndex:TMyArr): Boolean;
//...
GBuffer: TMyArr;
//...
Forum: Object-Pascal / Delphi-Language
by mleyen,
24. Aug 2011
Das kannst du machen wie du lustig bist, denn egal wie man das Spielfeld dreht, es sind immer die gleichen Gewinnmöglichkeiten.
Aber "von oben nach unten und von links nach rechts" wäre wohl das passendste.
Forum: Object-Pascal / Delphi-Language
by mleyen,
23. Aug 2011
Was funktioniert denn jetzt genau nicht?
Und worauf man hinweisen wollte war, dass man
besser so schreibt: (not IsFieldEmpty(AIndex))
Forum: Object-Pascal / Delphi-Language
by mleyen,
22. Aug 2011
9 farbige Labels für die Spielerzüge, welche nach den Klicks der Spieler hier rein gespeichert werden:
type
TTicTacToeSlot = (tttsFree, tttsPlayer1, tttsPlayer2);
var
TicTacToeSlots: array of array of TTicTacToeSlot;