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

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