1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

type

  TKaro = -1 .. 1;

  TFeld = Array [1 .. 3] of Array [1 .. 3] of TKaro;

  TSpiel = class
  private
    AnzahlZuge: Integer;
    FFeld : TFeld;
  public
    constructor Create;
    procedure Zug(AKaroTyp: TKaro; AFeld: TPoint);
    procedure Zeichnen(AMemo: TMemo);
    function Spielende: Boolean;
    function Gewinn: Integer;
  end;

const
  Kreuz = TKaro(-1);
  Frei = TKaro(0);
  Kreis = TKaro(1);

type
  TReihe = Array [1..3] of ^TPoint;

const
  Horizontal_I : TReihe = [@TFeld[1,1],@TFeld[2,1],@TFeld[3,1]];
  Horizontal_II : TReihe = [@TFeld[1,2],@TFeld[2,2],@TFeld[3,2]];
  Horizontal_III : TReihe = [@TFeld[1,3],@TFeld[2,3],@TFeld[3,3]];
  Vertikal_I : TReihe = [@TFeld[1,1],@TFeld[1,2],@TFeld[1,3]];
  Vertikal_II : TReihe = [@TFeld[2,1],@TFeld[2,2],@TFeld[2,3]];
  Vertikal_III : TReihe = [@TFeld[3,1],@TFeld[3,1],@TFeld[3,3]];
  Diagonal_I : TReihe = [@TFeld[1,1],@TFeld[2,2],@TFeld[3,3]];
  Diagonal_II : TReihe = [@TFeld[1,3],@TFeld[2,2],@TFeld[3,1]];
  Reihe : Array [1..8] of TReihe = [Horizontal_I,Horizontal_II,Horizontal_III,
                                   Vertikal_I,Vertikal_II,Vertikal_II,
                                   Diagonal_I,Diagonal_II];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

type
  TReihe = Array [1..3] of TPoint;

const
  Horizontal_I : TReihe = ((x:1;y:1),(x:2;y:1),(x:3;y:1));
  Horizontal_II : TReihe = ((x:1;y:2),(x:2;y:2),(x:3;y:2));
  Horizontal_III : TReihe = ((x:1;y:3),(x:2;y:3),(x:3;y:3));
  Vertikal_I : TReihe = ((x:1;y:1),(x:1;y:2),(x:1;y:3));
  Vertikal_II : TReihe = ((x:2;y:1),(x:2;y:2),(x:2;y:3));
  Vertikal_III : TReihe = ((x:3;y:1),(x:3;y:2),(x:3;y:3));
  Diagonal_I : TReihe = ((x:1;y:1),(x:2;y:2),(x:3;y:3));
  Diagonal_II : TReihe = ((x:1;y:3),(x:2;y:2),(x:3;y:1));


  Reihe : Array [1..8] of TReihe = (
                                    ((x:1;y:1),(x:2;y:1),(x:3;y:1)),
                                    ((x:1;y:2),(x:2;y:2),(x:3;y:2)),
                                    ((x:1;y:3),(x:2;y:3),(x:3;y:3)),
                                    ((x:1;y:1),(x:1;y:2),(x:1;y:3)),
                                    ((x:2;y:1),(x:2;y:2),(x:2;y:3)),
                                    ((x:3;y:1),(x:3;y:2),(x:3;y:3)),
                                    ((x:1;y:1),(x:2;y:2),(x:3;y:3)),
                                    ((x:1;y:3),(x:2;y:2),(x:3;y:1))
                                    ) ;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

const
  FeldGroesse = 3;
  MaxH = Feldgroesse-1;
  MaxV = MaxH;  //Lässt sich später leicht erweitern
  MaxReihen = (MaxH+1) + (MaxV+1) + 2*(Abs(MaxH-MaxV)+1) - 1;

type
  TEintrag = (Kreuz, Frei, Kreis);
  PEintrag = ^TEintrag;

  HIndex = 0..MaxH;
  VIndex = HIndex;
  TSpalte = Array [VIndex] of TEintrag;
  TFeld = Array [HIndex] of TSpalte;

  TReihe = Array [HIndex] of PEintrag;  //Für Höhe <> Breite wird's komplizierter..
  TReihen = Array[0..MaxReihen] of TReihe;

  TSpiel = class
  private
    FFeld : TFeld;
    FReihen: TReihen;
  public
    procedure Neu;  //Startet neues Spiel, initialisiert Spielbrett
  end;

implementation

procedure TSpiel.Neu;
var
  h: HIndex;
  v: VIndex;
begin
  {..}
  for h := 0 to MaxH do begin
    for v := 0 to MaxV do begin
      FFeld[h,v] := Frei;
      FReihen[Ord(h),v] := @(FFeld[h,v]);  //Zeilen
      FReihen[MaxH+1 + Ord(v), h] := @(FFeld[h,v]);  //Spalten
    end;
  end;
  //Die Diagonalen einzutragen, fehlt noch, die überlasse ich mal dir :)
  {..} 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TReihe = Array [1 .. 3] of TPoint;
  PReihe = ^TReihe;

const
  Horizontal_I: TReihe = ((x: 1; y: 1), (x: 2; y: 1), (x: 3; y: 1));
  Horizontal_II: TReihe = ((x: 1; y: 2), (x: 2; y: 2), (x: 3; y: 2));
  Horizontal_III: TReihe = ((x: 1; y: 3), (x: 2; y: 3), (x: 3; y: 3));
  Vertikal_I: TReihe = ((x: 1; y: 1), (x: 1; y: 2), (x: 1; y: 3));
  Vertikal_II: TReihe = ((x: 2; y: 1), (x: 2; y: 2), (x: 2; y: 3));
  Vertikal_III: TReihe = ((x: 3; y: 1), (x: 3; y: 2), (x: 3; y: 3));
  Diagonal_I: TReihe = ((x: 1; y: 1), (x: 2; y: 2), (x: 3; y: 3));
  Diagonal_II: TReihe = ((x: 1; y: 3), (x: 2; y: 2), (x: 3; y: 1));

  Reihe: Array [1 .. 8] of PReihe = (@Horizontal_I, @Horizontal_II, @Horizontal_III,
    @Vertikal_I, @Vertikal_II, @Vertikal_III, @Diagonal_I, @Diagonal_II);