SHPORA.net :: PDA | |
Main FAQ гуманитарные науки естественные науки математические науки технические науки заполнение игрового поля procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var i,e:integer; begin if stringgrid1.Cells[ACol,ARow]='' then begin if f=0 then stringgrid1.cells[ACol,ARow]:='o' else stringgrid1.cells[ACol,ARow]:='x'; f:=not f; end else ShowMessage('Ячейка не пустая'); |