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
|
TChessColor = (pcWhite, pcBlack);
TChessPieceType = (ptPawn, ptKnight, ptBishop, ptRook, ptQueen, ptKing);
TChessPiece = class
fColor : TChessColor;
fType : TChessPieceType;
pictures : BGRABitmap;
end;
TCasePiece = class
fcol, fLig : integer;
fColor : TChessColor;
fPiece : TChessPiece;
end;
...
TChessBoard = class
Case : array[0..63] of TCasePiece;
// sachant que pour retrouver les ligne et les colonne il suffit de faire
// li := IdinceTab div 8; co := IdinceTab mod 8;
... |
Partager