Fehler beim Einsatz von Schleife

[DelphiProgrammierer]

Zitat von 3rdnuss:

Hier nochmal die ganze Prozedur:

 If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);

Hi 3rdnuss,
der Fehler liegt in der if Bedingung. Damit schließt Du alle Fälle aus mit
Feld[x,irgendwas] und Feld[irgendwas,y] also z.B. Feld[x,y+1] usw.

schreibe stattdessen:
if (not ((i=x) and (j=y))) and (Feld[i,j]=1) then inc(k,1); Gruß


Ulrich