dringende Frage zur : Tic Tac Toe Programmierung ! - Bitte um schnelle Antwort

[himitsu]

Du hast ja schon eine "Optimierung".
Man hätte auch in jedem ButtonClick den kompletten Auswertecode reinschreiben können.
Du hast nur eine Auswertemethode, aber mußt sie natürlich überall nur noch aufrufen. (dort kommst'e nicht drumrum)
Aber es geht noch mehr ... sie meinen letzen Tipp, da ganz unten.


Das mit den "sinnvollen" Komponentennamen wurde schon gesagt.
Wenn du die Buttons z.B. Feld11, Feld12, Feld13, Feld21, Feld22 usw. benennst, wird der Code verständlicher.
Oder eben FeldObenLinks, FeldObenMitte, FeldObenRechts, FeldLinksMitte, FeldMitteMitte usw.

PS: Wozu hast du eigentlich da ganz oben das Array deklariert?

Bei der Gewinnerauswertung solltest du eventuell ein paar ELSE oder EXIT einbauen, denn was mag wohl passieren, wenn ich jetzt hier

Code:

X  X  .
.  .  X
.  .  X

Oben-Rechts ein X hinmach?

Code:

.  X  .
X  .  X
.  X  .

Oder hier in der Mitte.

Zitat:

if RadioButton1.Checked=True then

Du solltest besser nicht auf =TRUE prüfen.
if RadioButton1.Checked then oder das Gegenteil (False) if not RadioButton1.Checked then .


Und so als Tipp:
Sender gibt die Komponente an, von wo diese Methode aufgerufen wurde.
Wenn man also den Sender auswertet/benutzt, dann kann man für mehrere Buttons die selbe Methode benutzen und muß nich tausend Mal praktisch den selben Code hinschreiben (außer daß sich dann Button1, Button2, Button3 usw. unterscheiden)

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if RadioButton1.Checked then
    begin
     (Sender as TButton).Caption:='X';
     RadioButton2.Checked := True;  // du willst ja eigentlich den "Check"-Status setzen und nicht den Eingabefokus
    end
  else
    // Das zweite IF .... es kann ja eh nur Einer von Beiden sein, also "entweder der Eine oder der Andere" ... da muß man nicht nochmal prüfen
    begin
     (Sender as TButton).Caption:='O';
     RadioButton1.Checked := True;
    end;
  (Sender as TButton).Enabled:=False;  // doppelter Code ... einmal reicht (du hattest bei beiden Spielern den selben Code drin)
  Gewinner;
end;

[Fazer]

habe noch ne frage
unzwar wenn ich das eingebe steht ausdruckstyp muss BOOLEAN sein:

Delphi-Quellcode:

procedure TForm1.zaehler;
begin
xscore := 0;
oscore := 0;

if (lblGewinner.Caption := 'Spieler 1 hat gewonnen !') then
begin
xscore := xscore + 1;
lblXScore.Caption := IntToStr(xscore);

end;
end;

WIe kann ich das beheben?

[lbccaleb]

Zitat von Fazer:

if (lblGewinner.Caption := 'Spieler 1 hat gewonnen !') then

Das ist ne Zuweisung, kein Vergleich! Für if brauchst du aber ein Vergleich...

Doppelpunkt weg...

[Fazer]

Jo ok, aber wie kann man das sinvoll anders machen?
Ich will einen Zähler einbauen in das Spiel

[DeddyH]

Was man Dir sagen wollte:
:= <- Zuweisung
= <- Vergleich

[Fazer]

Ja das weiß ich ^^

aber irgendwie will das nicht funktionieren.

if (lblGewinner.Caption = 'Spieler 1 hat gewonnen !') then
begin
xscore := xscore + 1;
lblXScore.Caption := IntToStr(xscore);
end;

also die lblXScore.Caption verändert sich nicht :S

neuer code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;


type
  TForm1 = class(TForm)
    btnNewGame: TButton;
    btnResetScore: TButton;
    rgPlayFirst: TRadioGroup;
    gbScoreBoard: TGroupBox;
    lblX: TLabel;
    lblMinus: TLabel;
    lblO: TLabel;
    lblXScore: TLabel;
    lblColon: TLabel;
    lblOScore: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ButtonClose: TButton;
    MainMenu1: TMainMenu;
    Hilfe1: TMenuItem;
    Anleitung1: TMenuItem;
    Informationen1: TMenuItem;
    lblGewinner: TLabel;
    procedure btnNewGameClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Gewinner;
    procedure zaehler;
    procedure ButtonCloseClick(Sender: TObject);
    procedure Anleitung1Click(Sender: TObject);
    procedure Informationen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  xscore: Integer;
  oscore: Integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
    begin
     Button1.Caption:='X';
     Button1.Enabled:=False;
     RadioButton2.SetFocus;
    end
  else
   if RadioButton2.Checked then
    begin
     Button1.Caption:='O';
     Button1.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if RadioButton1.Checked then
     begin
      Button2.Caption:='X';
      Button2.Enabled:=False;
      RadioButton2.SetFocus;
     end
 else
  if RadioButton2.Checked then
    begin
     Button2.Caption:='O';
     Button2.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button3.Caption:='X';
     Button3.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button3.Caption:='O';
     Button3.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button4.Caption:='X';
     Button4.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button4.Caption:='O';
     Button4.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button5.Caption:='X';
     Button5.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button5.Caption:='O';
     Button5.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button6.Caption:='X';
     Button6.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button6.Caption:='O';
     Button6.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button7.Caption:='X';
     Button7.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button7.Caption:='O';
     Button7.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button8.Caption:='X';
     Button8.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button8.Caption:='O';
     Button8.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 if RadioButton1.Checked then
    begin
     Button9.Caption:='X';
     Button9.Enabled:=False;
     RadioButton2.SetFocus;
    end
 else
  if RadioButton2.Checked then
    begin
     Button9.Caption:='O';
     Button9.Enabled:=False;
     RadioButton1.SetFocus;
    end;
Gewinner;
end;

//Gewinner festlegen
procedure TForm1.Gewinner;
begin
  //Kombination 1
  if (Button1.Caption='X') and (Button2.Caption='X') and (Button3.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
   if (Button1.Caption='O') and (Button2.Caption='O') and (Button3.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 2
  if (Button4.Caption='X') and (Button5.Caption='X') and (Button6.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button4.Caption='O') and (Button5.Caption='O') and (Button6.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 3
  if (Button7.Caption='X') and (Button8.Caption='X') and (Button9.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button7.Caption='O') and (Button8.Caption='O') and (Button9.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 4
  if (Button1.Caption='X') and (Button4.Caption='X') and (Button7.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button1.Caption='O') and (Button4.Caption='O') and (Button7.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 5
  if (Button2.Caption='X') and (Button5.Caption='X') and (Button8.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button2.Caption='O') and (Button5.Caption='O') and (Button8.Caption='O') then
   begin
     lblGewinner.Caption :='Spieler 2 hat gewonnen !';
   end;
  //Kombination 6
  if (Button3.Caption='X') and (Button6.Caption='X') and (Button9.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button3.Caption='O') and (Button6.Caption='O') and (Button9.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 7
  if (Button1.Caption='X') and (Button5.Caption='X') and (Button9.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button1.Caption='O') and (Button5.Caption='O') and (Button9.Caption='O') then
    begin
      lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
  //Kombination 8
  if (Button3.Caption='X') and (Button5.Caption='X') and (Button7.Caption='X') then
    begin
      lblGewinner.Caption :='Spieler 1 hat gewonnen !';
    end;
  if (Button3.Caption='O') and (Button5.Caption='O') and (Button7.Caption='O') then
    begin
     lblGewinner.Caption :='Spieler 2 hat gewonnen !';
    end;
end;

procedure TForm1.zaehler;
begin
xscore := 0;
oscore := 0;

if (lblGewinner.Caption = 'Spieler 1 hat gewonnen !') then
begin
xscore := xscore + 1;
lblXScore.Caption := IntToStr(xscore);
end;

if (lblGewinner.Caption = 'Spieler 2 hat gewonnen !') then
begin
oscore := oscore + 1;
lblOScore.Caption := IntToStr(oscore);

end;
end;

procedure TForm1.btnNewGameClick(Sender: TObject);
 begin
   Button1.Caption:='';
   Button2.Caption:='';
   Button3.Caption:='';
   Button4.Caption:='';
   Button5.Caption:='';
   Button6.Caption:='';
   Button7.Caption:='';
   Button8.Caption:='';
   Button9.Caption:='';
   Button1.Enabled:=True;
   Button2.Enabled:=True;
   Button3.Enabled:=True;
   Button4.Enabled:=True;
   Button5.Enabled:=True;
   Button6.Enabled:=True;
   Button7.Enabled:=True;
   Button8.Enabled:=True;
   Button9.Enabled:=True;
   lblGewinner.Caption:='';

 end;

procedure TForm1.ButtonCloseClick(Sender: TObject);
 begin
  Form1.Close
 end;

procedure TForm1.Anleitung1Click(Sender: TObject);
 begin
  showmessage('Funktionsweise:'
               +#10#13+ '1)Kreuze an welcher Spieler anfängt!'
               +#10#13+ '2)Und Leg los!');
 end;

procedure TForm1.Informationen1Click(Sender: TObject);
 begin
  ShowMessage(' © ');
 end;




end.

[nuclearping]

Zitat von Fazer:

Ja das weiß ich ^^

Ja, dann verhalte dich bitte auch entsprechend und reagiere auf die Beiträge (zB mit einem "Danke für den Tipp"). Ich meine die Leute investieren hier immerhin ihre Zeit, um deine Probleme zu verstehen und zu lösen.

Zitat von Fazer:

also die lblXScore.Caption verändert sich nicht :S

Und die Funktion "zaehler" wird WO aufgerufen?

Edit: Den Tipp von himitsu, allen Buttons nur einen Event zuzuweisen und entsprechend den Sender auszuwerten, statt 9x den gleichen Code zu replizieren, hättest du auch beherzigen können.