TicTacToe

[Tytomik]

Nein der ist obendran aber den wollte ich nicht dazu tun.

[Neutral General]

Nochwas:

Es sollte so aussehen:

Delphi-Quellcode:

    
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);    
  private
    { Private declarations }
  public
    procedure Drueken;
  end;

Du solltest dir mal irgendwo die Grundlagen (vor allem Syntax und Unit-/Programmaufbau!

[Luckie]

Warum sollte die Prozedur Drueken öffentlich sein. Wenn man mal davon absieht das drücken mit ck geschrieben wird. Des weiteren warte ich noch auf eine Beantwortung meiner Frage.

[Neutral General]

Ja stimmt du hast recht. Im Private-Bereich wäre die Methode eigentlich besser aufgehoben.

[Deep-Sea]

Zitat von Neutral General:

Im Private-Bereich wäre die Methode eigentlich besser aufgehoben.

Und das z.B. die OnClick-Methode ganze 9 mal redundant vorkommt, ist da nicht so schlimm?!

(War ja klar, das wieder so ein Thread kommen würde. Ich habe erst vor Tagen das Spiel selbst mal kurz dahinprogrammiert. Allerdings wollte ich nur mal den NegaMax-Algorithmus für die "KI" ausprobieren )

[sHoXx]

[EDIT]

Zitat:

Und das z.B. die OnClick-Methode ganze 9 mal redundant vorkommt, ist da nicht so schlimm?!

[/EDIT]

außerdem würde ich dir empfehlen allen buttons das selbe Ereignis zuzuweisen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Druecken;
  If t = 1 then 
  begin
    TButton(Sender).Caption := 'x';
  end;

  If t = 2 then 
  begin
    TButton(Sender).Caption := 'o' 
    t := 0;
  end;
end;

statt 9 mal der selbe Code hast du dann 1 mal Code für 9 Buttons

ist nicht getestet nur eben hingeschrieben sollte aber funktionieren

[DeddyH]

Oder so (allerdings ohne großartige Fehlerbehandlung):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Captions: array[1..2] of Char = ('x', 'o');
begin
  Druecken;
  (Sender as TButton).Caption := Captions[t];
  if t > 1 then
    t := 0;
end;