Sudoku Logik

[hans ditter]

Also, ich hab gerade festgestellt, dass mein Turbo Delphi kein return für Funktionen kennt. Oder hab ich vergessen, irgendeine Unit einzubinden?

Ich wollte das machen:

Delphi-Quellcode:

function SetCell(i: integer) : boolean;
begin
  if i > Size * Size then
    return true;

[hans ditter]

Also, ich hab jetzt gerade mal den Pseudocode umgesetzt in meinem Programm. Ob er funktioniert, kann ich noch nicht sagen, da er mir (unverständlicherweise) an einer Stelle sagt, dass " '' ist kein gültiger Integerwert".

Hier mal der Code, mit dem alle Zellen gefüllter werden (sollen):

Delphi-Quellcode:

function SetCell(i: integer) : boolean;
var ValidDecision: TStringList;
  j,X,Y: Integer;
  dig: string;
begin
  if i > (Size * Size) - 1 then
  begin
    Result:=true;
    Exit;
  end;
{.....................................................................}
  ValidDecision:=TStringList.Create;
  for j := 1 to Size do
    ValidDecision.Add(IntToStr(j));
{.....................................................................}
  while ValidDecision.Count > 0 do
  begin
    dig:=ValidDecision[random(ValidDecision.Count)];
    if DigitIsOk(i,StrToInt(dig)) then //hier kommt der Fehler!
    begin
      X:=i mod Size;
      Y:=i div Size;
      Form1.Map.Cells[X,Y]:=dig;
      if SetCell(i + 1) then
      begin
        Result:=True;
        Exit;
      end
      else
      begin
        ValidDecision.Delete(ValidDecision.IndexOf(dig));
        dig:=ValidDecision[random(ValidDecision.Count)];
      end;
    end
    else
      ValidDecision.Delete(ValidDecision.IndexOf(dig));
  end;

  ValidDecision.Free;

  Result:=False;
end;

Und dann noch die Überprüfung der Zahl:

Delphi-Quellcode:

function DigitIsOK(i,Digit: integer):boolean;
var
  j: Integer;
  X,Y: integer;
begin
  X:=i mod Size;
  Y:=i div Size;

  Result:=True;

  if not(Digit = 0) then
  begin
    for j := 0 to Size do
    begin
      if (Digit = StrToInt(Form1.Map.Cells[X,i])) OR
         (Digit = StrToInt(Form1.Map.Cells[i,Y])) then
        begin
          Result:=False;
          Break;
        end;
    end;
  end
  else
    Result:=false;
end;

Der Fehler kommt so zwischen der 4. und 5. Zelle. Ich kann mir das nicht so richitg erklären, weil hier die Sprache davon ist, dass i='' ist. Aber wieso? Hoffentlich könnt ihr mir nochmal aus der Patsche helfen.

LG, hans ditter

[Notxor]

Scheint so als hättest du statt "j" ein "i" (oder umgekehrt).

[hans ditter]

hm, ich hab's grade mal geändert (hattest übrigens recht, das i sollte ein j sein), hat aber nichts geändert.
Ich glaube eher, dass dig irgendwie '' ist. Aber ich weiß nicht warum.
Könntet ihr dahingehend nochmal durchschauen? Such auch schon seit ein paar Stunden nach dem Fehler...

[Notxor]

Ich glaub da fehlt ein " -1 ", also

dig:=ValidDecision[random(ValidDecision.Count -1 )]; .

[hans ditter]

Hast du absolut Recht... das fehlte!
Aber leider behebt es immer noch nicht mein Problem. Ich glaube fast, dass es irgendwie einen falschen Zugriff auf eine falsche TStringList gibt.
Oh man, ich komm einfach nicht weiter...

[hans ditter]

@Jumpy: Also ich hab deinen code mal getestet. Aber es will immer noch nicht funktionieren...

Ich häng das Projekt mal dran. Hab neben dem Feld nochmal 2 Listen gepackt, die die Werte von j und k anzeigen. Utopisch hohe Werte und vor allem total durcheinander.

Vielleicht magst du nochmal drüber schauen.....??

LG, hans ditter

[Jumpy]

Wo hast du das denn hingepackt?

[hans ditter]

ups... hab ich wohl vor lauter Aufregung vergessen... passiert mir irgendwie dauernd...

[Jumpy]

Hallo Hans,

in DigitIsOK, an der Stelle, wo das testen auf die kleinen Quadrate losgeht steht diese Zuweisung:

Delphi-Quellcode:

X:=i div SmallSize;
Y:=i div SmallSize;

Diese muss lauten (Hab ich vorher übersehen, sorry.):

Delphi-Quellcode:

X:=X div SmallSize;
Y:=Y div SmallSize;

Denn weiter oben (als du die Reihen und Spalten getestet hast) wird aus i die Position des Feldes, also X und Y berechnet. Abhängig von der Position (also X und Y) wird nun ermittelt in welchem Quadrat das Feld steht. Also die X und Y Position des Quadrates. Mit der obigen Änderung müsste das klappen. Da du von i statt von X oder Y ausgegangen bist, kamen auch die komischen Werte raus.

X und Y haben also für den Reihen- und Spaltentest und den Quadrattest unterschiedliche Bedeutung. Der übersicht halber solltest du sie daher anders nennen, z.B. qX und qY oder so:

Delphi-Quellcode:

qX:=X div SmallSize;
qY:=Y div SmallSize;

Natürlich das dann auch im darauf folgenden Quelltext ändern...

Damit sollte es doch jetzt klappen,
Jumpy