Sudoku Array of Array vergleichen

[Bjoerk]

Für die Sudoku Fans:

Delphi-Quellcode:

function BlockToRowCol(Block, Index: integer): TPoint;
begin
  // Block 0..8, Index 0..8
  // Result.X = Row 0..8, Result.Y = Col 0..8
  Result.X:= (Block div 3) * 3 + Index div 3;
  Result.Y:= (Block mod 3) * 3 + (Index + 3) mod 3;
end;

function RowColToBlock(Row, Col: integer): TPoint;
begin
  // Row 0..8, Col 0..8
  // Result.X = Block 0..8, Result.Y = Index 0..8
  Result.X:= Row div 3 mod 3 * 3 + Col div 3 mod 3;
  Result.Y:= Row mod 3 * 3 + Col mod 3;
end;

function IndexToRowCol(K: integer): TPoint;
begin
  // K 0..80
  // Result.X = Row 0..8, Result.Y = Col 0..8
  Result.X:= K div 9;
  Result.Y:= K - Result.X * 9;
end;

function RowColToIndex(Row, Col: integer): integer;
begin
  // Row 0..8, Col 0..8
  // Result = K 0..80
  Result:= Row * 9 + Col;
end;

[Raziel eats SoulCookies]

Hallo zusammen.
Ich und ein Schulkollege haben in Info eine Projektarbeit.
Wir haben uns auch für Sudoku entschieden. Wir haben hier auch schon eine menge Seiten zu diesem Thema durchgewelzt. Habe mich schließlich auch hier angemeldet um ein paar Sudokus down-zu-loaden, da wir uns das auch mal anschauen wollten.
Unser Problem besteht zum ersten darin, das hier mit vielen Funktionen und Anweisungen für Delphi programmiert wird, welche wir nicht kennen und wir aber auch nicht einfach den Quelltext kopieren können.
Zum zweiten haben wir folgenden Quelltext um das Array und Später auch das Stringrid damit zu füllen.
Es funktioniert auch bis zur 7. Zeile und 5. Spalte recht gut.
Aber dann bekommen wir einen Stacküberlauf oder eine Access Violation.
Wenn wir dann die Zelle 7/6 vom Vergleich ausklammern, kommen wir wieder ein einhalb Zeilen weiter.

Nun wollte ich mal fragen ob einer vielleicht Zeit hätte sich das mal anzuschauen und vielleicht einen Denkanstoß für das Problem hat.

---- musste den Quellcode entfernen, war der falsche.
---- richtige kommt