Sudoku Array of Array vergleichen

[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;