Das Problem ist nur, wenn das Feld = ' ' ist, hat die Prüfung nicht funktioniert, da es zu einem ungültigen Integerwert in beim Aufruf der Prozedure "berechnen" kommt.
Delphi-Quellcode:
1: begin
x:=0;
y:=0;
berechnen(x,y,zahl,dlauf); //Hier kommt der Fehler
end;
Deswegen habe ich die 0 verwendet. Jene wird auch so überschrieben.
Ich habe auch den Integer Wert Hilfe überwacht, bzw. versuchte es. "Auf Variable 'hilfe' kann wegen Optimierung nicht zugegriffen werden"
Es läuft ja so, dass nacheinander die Zahlen von 1-9 je 9x eingefügt werden. Wenn eine Zahl in dem Feld bereits Teil der Menge "zahlen: set of 1..9" ist, heißt es ja, dass die Zeile/Spalte belegt ist. Habe Danach mal Testweise aus 1..9 eine 0..9 gemacht, was ja heißen würde, dass sich das Programm aufhängt, da vorerst überall eine 0 ist.
Jedoch wird weiterhin die gleiche Lösung angeboten mit allen Zahlen, bei denen die Zeilen/Spalten von der Struktur (eines Sudoku) funktionieren und etwa 20x der 0, welche ich am Anfang rein geschrieben habe, da das leere Wort schlecht eine Zahl darstellen kann.
Weiß leider nicht, wieso er dennoch den Algorithmus ausführt, da dies nicht sein dürfte.