tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

[biby90]

:|geht nicht

[ensaron]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
  private
    ...
    FAktuellerSpieler: string; //<-- diese Zeile ergänzen.
    ...

Dann in ChangePlayer:

Delphi-Quellcode:

FAktuellerSpieler := Spieler1.Text; //oder halt Spieler2.Text, je nachdem, wer dran ist.

Und die Ausgabe des aktiven Spielers:

Delphi-Quellcode:

Label12.Caption := FAktuellerSpieler + ' ist am Zug.';

[biby90]

Danke. Habe es anders lösen können.

[biby90]

Bei was anderem könnt ich nochmal einen kleinen Schupser gebrauchen.

ich habe jetzt vor, die Spielzüge zu zählen. Erstmal insgesamt und später vielleicht für jeden Spieler einzelnd.

Habt ihr einen kleinen Denkanstoß?

[sHoXx]

jedesmal, wenn nen label geklickt wird, ne variable hochzählen :D

[DeddyH]

Aber eine globale ;)

[biby90]

@Deddyh
daran hab ich gedacht :thumb:

Delphi-Quellcode:

procedure TForm1.Label6Click(Sender: TObject);
begin
  if IsFieldEmpty(Label6.Caption) then
  begin
    Label6.Caption := WriteToField(GPlayer);
    Label6.Repaint;
    MakeArray;
    if CheckForWin(GBuffer) then
    begin
      Label12.Caption := ('Spieler ' + IntToStr(GPlayer)+' hat gewonnen!');
      GPlayer := 1;
    end else
    begin
      ChangePlayer;
      Label13.Caption := IntToStr(i+1);
    end;
  end;
end;

Er Zählt nur den ersten Klick und dann bleibt er auf 1 stehen?!

Das ist eigentlich ja so einfach, sodass ich wieder Koplizierter Denke als es ist!

[Neutral General]

Hallo,

Du musst i erhöhen. Nicht nur das erhöhte anzeigen:

Delphi-Quellcode:

i := i + 1; // oder inc(i);
Label13.Caption := IntToStr(i);

[biby90]

also praktisch so

Delphi-Quellcode:

end else
    begin
      ChangePlayer;
      i := i+1;
      Label13.Caption := IntToStr(i+1);
    end;

sag ich ja... wieder so einfach und zu kompliziert gedacht

oh,. hab dein quelltext über sehen hehe^^

[Neutral General]

Delphi-Quellcode:

end else
    begin
      ChangePlayer;
      i := i+1;
      Label13.Caption := IntToStr(i);
    end;

Nur IntToStr(i). i ist ja dann schon um 1 größer.