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

[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!

[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.

[biby90]

Wollte gerade sagen dass er von 2 anfängt zu zählen aber das hat sich ja mit dem letzten Beitrag auch erledigt

[biby90]

Wie mache ich es am Besten wenn ich die Klicks der SPieler einzelnd Zählen lasse?