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:

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

Und die Ausgabe des aktiven Spielers:

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

[DeddyH]

Aber eine globale

[biby90]

@Deddyh
daran hab ich gedacht

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!