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

[mleyen]

Zitat von biby90:

function TForm1.CheckForWin(AIndex: array of string): Boolean;

Hier liegt das Problem. Bei normalen Arrays fängt der Index bei 0 an.
Mach das so:

Delphi-Quellcode:

//...
  TMyArr = array[1..9] of string;
  TForm1 = class(TForm)
//...
     function CheckForWin(AIndex:TMyArr): Boolean;
//...
   GBuffer: TMyArr;
//...
function TForm1.CheckForWin(AIndex: TMyArr): Boolean;