Leider auch nur fast. Wenn du als Ausgangspunkt z.B. 0,0 nimmst und nach 0,11 gehst - dann muss man 12 Felder laufen, die Funktion liefert aber nur 11. Evtl. muss man ja Unterscheiden, ob man von einer geraden in eine ungerade Reihe wechselt. Ich versuch das mal...
Edit: Ich habe am Ende noch folgendes eingefügt:
Delphi-Quellcode:
if Odd(X1) <> Odd(X2) then
Inc(Result,1);
Damit ist es bisher korrekt, außer bei zwei direkt benachbarten Feldern. Da kommt dann 2 statt 1 raus - aber das ist auch noch zu machen
