Bug in VierGewinnt

[m.wollert]

Hi Radon,

<edit> Damit scheint jedoch die diagonale Anordnung nicht mehr zu funktionieren... </edit>

meines erachtens kontrollierst Du nur 3 Zustände im Bereich der Zeilen 223-226,
habe dort einfach mal

if Feld[GSpalte - 4 * x, GZeile - 4 * y] = Spieler then eingefügt, damit scheint es zu funktionieren.

Dennoch solltest Du das

    FreeAndNil(VierGewinnt); wieder aus dem Code nehmen, ansonsten hagelts nur so von AV´s

Grüße