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

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