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

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

[DeddyH]

Sei mir nicht böse, aber langsam wird es lächerlich. 2 Spieler, 2 Variablen, da kann man drauf kommen, oder?

[biby90]

Hmmm.. macht Sinn. Ich lass Euch für Heute (Wie versprochen) in frieden.

[biby90]

Guten Morgen!

Ich möchte jetzt den Klickzähler Stoppen, sobald ein Spieler gewonnen hat.
habe es jetzt folgendermaßen:

Delphi-Quellcode:

procedure TForm1.CountClick;
begin
  if GPlayer = 1 then
  begin
    i := i +1;
    Label14.Caption := IntToStr(i);
  end else
    j := j +1;
    Label13.Caption := IntToStr(j);

    if CheckForWin(GBuffer) = true then
    begin
      Exit;
    end;
end;

Die Züge von Spieler 2 werden nicht mehr gezählt aber das von SPieler 1.... es soll ja aber gar nicht mehr gezählt werden... habt ihr eine Idee?

[DeddyH]

begin und end vergessen?

BTW: Du vergleichst ja schon wieder auf true

[biby90]

upsiii^^ nicht böse sein Papa Deddyh
ich werds sofort ändern

[Butch87]

Zitat von biby90:

habt ihr eine Idee?

Joah.

Die Gewinnabfrage musst du einfach vor dem Aktualisieren der Labels machen.
Ansonsten hat er ja gar nicht die Chance den Code vorzeitig zu verlassen.

Delphi-Quellcode:

procedure TForm1.CountClick;
begin
  if CheckForWin(GBuffer) then // nicht direkt auf true bzw false prüfen (wurde dir schon öfters nahe
                               // gelegt)
  begin
    Exit;
  end;
  if GPlayer = 1 then
  begin
    i := i +1;
    Label14.Caption := IntToStr(i);
  end 
  else
  begin
    j := j +1;
    Label13.Caption := IntToStr(j); // ohne Begin/End wird der Teil immer ausgeführt
  end;
end;

[DeddyH]

Die Reihenfolge ist aber nicht das Entscheidende, sondern dass

Zitat:

Label13.Caption := IntToStr(j);

in jedem Fall ausgeführt wird

[biby90]

Alles klar jetzt gehts!

Ja das mit dem auf true prüfen da hatte ich grad nciht dran gedacht aber habs ja jetzt geändert.

wegen der CheckForWin funktion..... warum funktioniert sie eigentlich wenn sie typisiert wurde und anders nicht?

Zitat:

Die Reihenfolge ist aber nicht das Entscheidende,

aber jetzt gehts.