Um nochmal zu meinem Code zurückzukommen!
Code:
function check4(c0,r0,p)
var
i, j, k: Integer;
begom
// Für den eingeworfenen Stein im Feld (c0,r0) prüfen, ob
// dieser auf einer Seite drei gleiche Nachbarn ("x" bzw. "o"),
// oder zwei gleiche Nachbarn auf der einen Seite und
// einen auf der anderen Seite besitzt.
for i := -1 to 1 do
for j := -1 to 1 do
if (i <> 0) then
k=0;
else
begin
k=1,
j=1;
end;
if(
Feld("a"+(c0-1*i)+(r0+1*i*j-1*k)) = p and
Feld("a"+(c0-2*i)+(r0+2*i*j-2*k)) = p and (
Feld("a"+(c0-3*i)+(r0+3*i*j-3*k)) = p or
Feld("a"+(c0+1*i)+(r0-1*i*j+1*k)) = p))
result := Gewonnen;
end;
... vom prinzip mein code
hab jetzt keine zeit mehr ihn vollstgändig zu überarbeiten (schule...)