Advertisement
Guest User

Untitled

a guest
Feb 7th, 2016
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.67 KB | None | 0 0
  1. procedure TOXOForm.OXOGridClick(Sender: TObject);
  2. var Grid : array [1..3, 1..3] of Integer;
  3. begin
  4.   MovesMade := MovesMade + 1;
  5.   if OXOGrid.Cells[OXOGrid.col, OXOGrid.row] = '' then
  6.   begin
  7.     OXOGrid.Cells[OXOGrid.col, OXOGrid.row] := CurrentSymbol;
  8.     if CurrentSymbol = 'X' then
  9.     CurrentSymbol := 'O'
  10.     else if CurrentSymbol = 'O' then
  11.     CurrentSymbol := 'X';
  12.  
  13.  
  14.  
  15.     if Won then
  16.     begin
  17.       Resultlbl.Caption := CurrentSymbol + ' has won';
  18.       Resultlbl.Visible := true;
  19.       OXOGrid.Enabled := false;
  20.  
  21.       if CurrentSymbol = 'X' then
  22.       begin
  23.         XScore := XScore + 1;
  24.         Label1.Caption := 'X Score: ' + inttostr(XScore);
  25.       end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement