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

[DeddyH]

Der Fehler liegt darin, dass Du die Funktion aufrufst, ohne vorher zu prüfen, ob das aktuell angeklickte Label "leer" ist.

[biby90]

Delphi-Quellcode:

procedure TForm1.Label9Click(Sender: TObject);
var
   Kombination: MyStringArray;
begin
    Kombination[0] := Label7.Caption;
    Kombination[1] := Label8.Caption;
    Kombination[2] := Label9.Caption;
  if IsFieldEmpty(Label9.Caption) then
  begin
    Label9.Caption := WriteToField(GPlayer);
    if CheckForWin(Kombination) then
    begin
      Label9.Caption := '';
      ShowMessage(IntToStr(GPlayer)+' hat gewonnen!');
      GPlayer := 1;
    end else
    begin
      ChangePlayer;
    end;
  end;
end;

sorry, der Server stürzt die ganze Zeit ab.... -.-

[DeddyH]

Du schreibst ja auch den alten Wert ins Array und änderst dann erst.

[biby90]

klappt auch nicht so richtig.... er zeigt mir nicht wer gewonnen hat und stoppt das spiel auch nicht....

[DeddyH]

Dann machst Du wohl was falsch.

[biby90]

ich probiers noch mal aus.... hab ja gleich feierabend.... ich schau mal was da los ist