Schon wieder Arrays... Werte abwechselnd ändern?

[scp]

Du hast die Zeile eins zu weit oben eingefügt, das Case muss ja erstmal durch end; abgeschlossenwerden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.enabled := false;
  case LastPlayer of
    0: LastPlayer := 1;  // noch kein Button gedrückt, also kommt Spieler 1 drann
    1: LastPlayer := 2;  // Spieler 1 war drann, also muss jetzt Spieler 2 rann
    2: LastPlayer := 1;  // Spieler 2 war drann, also muss jetzt Spieler 1 rann
  end;
  TicTacToe[1,1] := LastPlayer;
end;