So als kleines Beispiel, wie Du es umschreiben könntest
Delphi-Quellcode:
function TForm1.CheckForFreeField(x,y : Byte):Boolean;
begin
Result := GameBoard[x,y] = ftNone;
end;
mfg Tobias
[Edit]
Das Feld (GameBoard) sieht ja so aus :
Code:
y _ _ _
0|_|_|_|
1|_|_|_|
2|_|_|_|
0 1 2 x