Sudoku Array of Array vergleichen

[Marcel2906]

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?

[himitsu]

Einzelne Schleifen kannst du mit Break abbrechen.
Wenn du die Prüffunktion in eine eigene Funktion auslagerst, kannst du die Prozedur (und damit auch mehrere Schleifeb) mit Exit verlassen.
Oder man speichert sich den Status in einer Variable und reagiert nur auf das erste Vorkommen.

[DeddyH]

Oder man ersetzt die For- durch While-Schleifen und ergänzt die Schleifenbedingung entsprechend.

Delphi-Quellcode:

i := 1;
doppelt := false;
while (i < 9) and not doppelt do
  begin
    if Array[i] > 1 then
      begin
        doppelt := true;
        ShowMessage('Dublette');
      end;
    inc(i);
  end;

[Marcel2906]

Wenn ich es mit der while schleife versuche, habe ich wieder das Problem, dann wenn z.b. Sudoku[0,0] und [0,1] 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 aus:

Delphi-Quellcode:

Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
   THilfsArray = Array[1..9] Of Integer;
Var
   x, y, xx, yy: Integer;
   HilfsArray: THilfsArray;

   //HilfsArray erstellen
   Procedure HilfsArrayLeeren;
   Var
      i: Integer;
   Begin
      For I := 1 To 9 Do
         HilfsArray[i] := 0;
   End;

   //Wenn eine Zahl doppelt, Fehlermeldung
   Procedure ZahlDoppelt(WO: String);
   Var
      i: Integer;
      doppelt: boolean;
   Begin
      // Das alte mit der for Schleife

      {     For I := 1 To 9 Do
              If HilfsArray[i] > 1 Then Begin
                 Showmessage('Zahl in' + WO + ' doppelt');
                 BtNewClick(BtNew);
              End; }

      i := 1;
      doppelt := false;
      While (i < 9) And Not doppelt Do Begin
         If HilfsArray[i] > 1 Then Begin
            doppelt := true;
            ShowMessage('Zahl in' + WO + ' doppelt');
         End;
         inc(i);
      End;
   End;

   //Zahl zum Hilfsarray hinzufügen
   Procedure AddHilfsArray(z: Integer);
   Begin
      If (z > 0) And (z < 10) Then
         inc(HilfsArray[z]);
   End;

Begin
   //Zeile prüfen
   For y := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For x := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      ZahlDoppelt(' einer Zeile');
   End;
   //Spalte prüfen
   For x := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For y := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      ZahlDoppelt(' einer Spalte');
   End;
   //Feld prüfen
   For xx := 0 To 2 Do
      For yy := 0 To 2 Do Begin
         HilfsArrayLeeren;
         For y := yy * 3 To yy * 3 + 2 Do Begin
            For x := xx * 3 To xx * 3 + 2 Do
               AddHilfsArray(aSudoku[y, x]);
         End;
         ZahlDoppelt(' einem Feld');
      End;
End;

[himitsu]

Mach aus ZahlDoppelt eine Funktion, welche dir einen Boolen zurückgibt. (False wenn nicht doppelt usw.)

Du rufst diese Funktion ja mehrmals auf und das doppelt ist bis jetzt in jedem Funktionsaufruf neu/eigenständig.
Du mußt also auch noch die nchfolgenden Funktionsaufrufe entsprechend behandeln.

[Marcel2906]

irgendwie hab ich ne Blockade
habs jetzt so versucht:

Delphi-Quellcode:

Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
   THilfsArray = Array[1..9] Of Integer;
Var
   x, y, xx, yy: Integer;
   HilfsArray: THilfsArray;

//...

   //Wenn eine Zahl doppelt, Fehlermeldung
   Function ZahlDoppelt: boolean;
   Var
      i: Integer;
      doppelt: boolean;
   Begin
      For I := 1 To 9 Do
         If HilfsArray[i] > 1 Then
            Result := true;
   End;

//...


Begin
   //Zeile prüfen
   For y := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For x := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Zeile');
   End;
   //Spalte prüfen
   For x := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For y := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Spalte');
   End;
   //Feld prüfen
   For xx := 0 To 2 Do
      For yy := 0 To 2 Do Begin
         HilfsArrayLeeren;
         For y := yy * 3 To yy * 3 + 2 Do Begin
            For x := xx * 3 To xx * 3 + 2 Do
               AddHilfsArray(aSudoku[y, x]);
         End;
         If ZahlDoppelt = true Then
            ShowMessage(' einem Feld');
      End;
End;

[Blup]

Delphi-Quellcode:

   Function ZahlDoppelt: boolean;
   Var
      i: Integer;
   Begin
      For i := 1 To 9 Do
      Begin
         If HilfsArray[i] > 1 Then
         Begin
            Result := True;
            Exit; // Ergebnis steht fest
         End;
      End;
      Result := False;
   End;

//... niemals einen Boolean-Wert mit True vergleichen
      If ZahlDoppelt Then
         ShowMessage(' einer Zeile');