Reversi-Probleme mit Funktionen

[Sidorion]

Ich würd mal eher so sagen: dx und dy sind jeweils entweder 1, 0 oder -1, wdann kannst du so vorgehen:

Delphi-Quellcode:

Procedure Prüfe(x,y,dx,dy: Integer): Integer;
Var
  lx,ly: Integer;
Begin
  lx:=x;
  ly:=y;
  Result:=0;
  While IsField(lx,ly)
  Do Begin
    ...Prüferei...
    Inc(lx,dx);
    Inc(ly,dy);
  End;
End;

so kannste alle Richtungen mit einem stück code erschlagen.