Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
10. Nov 2011
hab mein Fehler endeckt:
Hier die Lösung:
// Feld 1 nach Werten durchsuchen und aus Kandidatenliste löschen
If (a < 3) And (b < 3) Then Begin
For x := 0 To 2 Do
For y := 0 To 2 Do
If aSudoku < 10 Then Begin
s := IntToStr(aSudoku);
ss := IntToStr(aSudoku);
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
10. Nov 2011
was ich bei
//Feld nach Werten durchsuchen und aus Kandidatenliste löschen
For xx := 0 To 2 Do
For yy := 0 To 2 Do Begin
For x := xx * 3 To xx * 3 + 2 Do
For y := yy * 3 To yy * 3 + 2 Do
If aSudoku < 10 Then Begin
s := IntToStr(aSudoku);
ss...
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
10. Nov 2011
Hey,
glaube ich hab eine sehr schwierige Frage.
An sich ist das bestimmt nicht so kompliziert, aber ich hab mir mal wieder was komisches ausgedacht :lol:
Nun, erstmal beschreibe ich mein Programm:
Insgesamt soll ist ein Sudoku Solver werden. Das Sudoku wird in ein Array 0..8 of Array (integer) 0..8 eingetragen. Alle leeren Felder werden dann mit einer 0 gefüllt. Dann werden alle leeren...