Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
20. Nov 2011
Für die Sudoku Fans:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
19. Nov 2011
Das sieht schon sehr viel besser aus. Danke Thomas. :cheers:
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
19. Nov 2011
Ist mir nix Gescheites eingefallen, laß mal rüberwachen.. 8-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
19. Nov 2011
Hab’s mal ausprobiert, allerdings etwas anders. Die Quadranten nenne ich hier Blöcke. Als Grundlage der Suche benutze ich eine Pemutliste. Geht recht flott so, < 2 sec..
function BlockToRowCol(Block, Index: integer): TPoint;
var
VX, VY: integer;
begin
// Block 0..8, Index 0..8
// Result.X = Row 0..8, Result.Y = Col 0..8
VX:= 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
19. Nov 2011
Achso, ich hatte diese Blöcke als Quadranten verstanden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
19. Nov 2011
Sir Rufo,
was meinst du mit 27 Blöcken, sind es nicht immer 9?