Fehler (warsch.) eine Abfrage. In Tic Tac Toe KI. HelpPlease

[M4ST3R86]

ich bekomme dadurch im kompletten code fehler.

Darf ich dir das programm mal schicken? Das du mal drübergucken kannst. Brauche umbedingt hilfe.

[Mirilin]

Du musst natürlich dann die ganzen Aufrufe dem entsprechend verändern. Überleg Dir doch nochmals kurz die logik des ganzen...


mfg Tobias

[M4ST3R86]

ja klar nur das prob ist ich habe kaum mehr zeit. Muss das mittwoch fertig haben *G*

Weißt du wie mans verbessern kann? Haste schonmal probiert?

[scp]

Also, ich habe jetzt eine komplett lauffähige Version. Da ich aber hier nich einfach was abliefern will, sondern auch ein bißchen zum selber nachdenken anregen will, hier ein paar Tips.
SetField sieht jetzt so aus, CheckForFreeField wie oben:

Delphi-Quellcode:

//Setzt das Spielfeld 'nFieldIdx' auf den wert 'fieldType' und weist 'img' das passende Bild zu
procedure TForm1.SetField( img : TImage; nFieldIdx : integer; fieldType : TFieldType );
var x,y : integer;
begin
  x := ((nFieldIdx) mod 3);
  y := ((nFieldIdx-x) div 3);

  //Ist das Feld 'nFieldIdx' noch frei?
  if ( CheckForFreeField( x,y {nFieldIdx} ) ) then begin
    //Setzt das Feld 'nFieldIdx' auf den Wert 'fieldType'
    GameBoard[ x,y ] := fieldType;

    //Je nach 'fieldType' das passende Bild an 'img' übergeben
    case fieldType of
      ftX : img.Picture.Assign( ImageX.Picture );
      ftO : img.Picture.Assign( ImageO.Picture );
    end;
  end;
end;

- Überall wo du nFieldIdx in x und y umrechnen willst, kannst du diese Methode verwenden:

Delphi-Quellcode:

  x := ((nFieldIdx) mod 3);
  y := ((nFieldIdx-x) div 3);

- Umgedreht gehts auch:
nFieldIdx := y*3 + x; - rndIdx wurde in SimpleKI noch nicht initialisiert
- statt random (2) musst du random (3) verwenden, da die 2er-Felder sonst nie von der KI benutzt werden und es deshalb zu einer bösen Endlosschleife kommt

[M4ST3R86]

Also bei deinem code oben meckert er schon da und zwar zu viele parameter. Liegt das an den images oder woran?


 if ( CheckForFreeField( x,y {nFieldIdx} ) ) then begin

[xineohp]

moin,

du musst natürlich die von Mirilin genannte Version von CheckForFreeField verwenden, nur die erwartet zwei Parameter ...

[M4ST3R86]

Jetzt habe ich hier bei
if ( not CheckForFreeField( nFieldNum ) ) then begin
Label1.Caption := 'Move again';
exit;

bei nFieldNum nicht genügend wirkliche parameter. Wieso?

Delphi-Quellcode:

procedure TForm1.ImageK0Click(Sender: TObject);
var
  nFieldNum : integer;
  nCurrImg  : TImage;
begin
  //Falls der Sender nicht von Typ TImage ist abbrechen
  if not ( Sender is TImage ) then
    exit;

  //Wenn 'bGameOver' auf true gesetzt ist, ebenfalls abbrechen
  if bGameOver then
    exit;

  //Den Sender einer Hilfvariable übergeben
  nCurrImg := ( Sender as TImage );
  //Den Tag (Feldnummer) des Senders einer Hilfvariable übergeben
  nFieldNum := nCurrImg.Tag;

  //Überprüfen ob das geklickte Feld frei ist, falls nicht aus der
  //Funktion springen
  if ( not CheckForFreeField( nFieldNum ) ) then begin
    Label1.Caption := 'Move again';
    exit;
  end;

[xineohp]

das ist doch wohl logisch! die procedure erwartet ja nun zwei Parameter ... ein x für die Spalte und ein y für die Zeile, keinen Index mehr der die Felder einzeln abzählt!

umrechnen mit:

Zitat von scp:

- Überall wo du nFieldIdx in x und y umrechnen willst, kannst du diese Methode verwenden:
Source:

x := ((nFieldIdx) mod 3);
y := ((nFieldIdx-x) div 3);

[M4ST3R86]

ja guck mal in dem code da sin werder x noch y. Also wie sall das gehen?

[xineohp]

s.o.