Vier gewinnt

[hoika]

Hallo,

Delphi-Quellcode:

TForm1 ..
  private
    { Private-Deklarationen }
    bPlayer1: Boolean;
  public     
  end;

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if StringGrid1.Cells[ACol,ARow] <> '' then
  begin

   // es steht was drin
   // also lassen wir von dieser Zelle mal die Finder
   // und verschwinden

    Exit;
  end;

  if bPlayer1 then
  begin 
   // es ist Spieler 1
    StringGrid1.Cells[ACol,ARow] := '1';
  end
  else
  begin
   // es ist Spieler 2
    StringGrid1.Cells[ACol,ARow] := '2 ';
  end;

 // Spieler umschalten
  if bPlayer1 then
  begin 
    bPlayer1:= False;
  end
  else
  begin
    bPlayer1:= True;
  end;
end;

Und jetzt nur noch das "wer hat gewonnen" schreiben ...

Vergesst mein FormCeate nicht
- freie Form-Fläche suchen
- Doppelklick



Heiko