Reversi-Probleme mit Funktionen

[tankm26]

Danke schonmal für deine Mühe, den spielfeldclick-Quellcode habe ich schon ausprobiert, ich muss nur noch die Möglichkeit ergänzen, dass man nicht auf die Spielsteine der eigenen Farbe klicken darf.

Die pruefen-Funktion werde ich mir gleich mal überlegen.

edit:

Delphi-Quellcode:

das ist nun der fertige spielfeldclick-code

procedure TForm1.spielfeldClick(Sender: TObject);
begin
  if (feld[spielfeld.Col,spielfeld.Row]=0) then
  begin 
    feld[spielfeld.Col,spielfeld.Row]:=dransein;
    case dransein of 
      rot : dransein := blau;
      blau: dransein := rot; end;
    spielfeld.Refresh; end 
else   Application.MessageBox('Das Feld ist schon belegt!', 'Fehler');
end;