Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
15. Nov 2011
irgendwie hab ich ne Blockade :-P
habs jetzt so versucht:
Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
THilfsArray = Array Of Integer;
Var
x, y, xx, yy: Integer;
HilfsArray: THilfsArray;
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
15. Nov 2011
Wenn ich es mit der while schleife versuche, habe ich wieder das Problem, dann wenn z.b. Sudoku und gleich sind er mir 4 mal eine meldung ausspuckt. 2mal das in einer reihe etwas doppelt ist und 2 mal dass im feld eine zahl doppelt ist...
Mit break und exit hab ich schon ein wenig rumprobiert, leider es nicht geschafft, da es ja eine procedure in einer procedure ist.
Mein code sieht so...
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
15. Nov 2011
Aber wenn ich mehre Fehler habe, zeigt er mir hunderte mal an, dass etwas doppelt ist. Wie kann ich das nach der ersten ShowMessage stoppen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
4. Nov 2011
Hey cool, funktioniert. Danke :-D
Aber kann mir das vllt mal einer genau erklären was wo gemacht wird??
Oder einfach grob die Idee die dahinter steckt erläutern :?:
Forum: Object-Pascal / Delphi-Language
Delphi
by Marcel2906,
4. Nov 2011
Guten Morgen,
ich bräuchte mal einen Denkanstoß, ich komm einfach nicht mehr weiter.
Und zwar habe ich ein Sudokufeld (Array 0..8 of Array 0..8)
Nun habe ich 2 Routinen geschrieben zum Prüfen ob eine Zahl in einer Reihe oder in einer Spalte doppelt sind :
Bsp. Code zum Prüfen in einer Reihe:
Var
x, y, i, j: integer;