procedure abbrechen bzw. warum läuft sie weiter? ^^

[Namenloser]

Zitat von Olga:

bisher hatte es halt gereicht, das ICH weiß was da steht^^

Anscheinend weißt du es ja eben nicht, sonst wüsstest du, wo das Problem liegt.

Ich habe eben mal versucht, den Code im Kopf durchzugehen, bin aber zu keinem Ergebnis gekommen, weil ich durch den Spaghetticode nicht durchblicke. Was mir aber aufgefallen ist, sind aber immer wieder ähnliche Muster, z.B.:

Delphi-Quellcode:

      Reihe(b,c);
      if e = 1 then
      Spalte(b,c);
      if e = 1 then
      Kasten(b,c);
      if e = 1 then
      begin
        Positionsarray[Nr-1,0] := INr;
        Nr := Nr+1;
        INr := 0;
        Richtung := 1;
        BackTracking(Nr,INr);
      end;
    if e <> 1 then
    begin

Warum fragst du den Wert von e hier vier mal direkt hintereinander ab? Fasse sowas zusammen, denn solcher Code ist (insbesondere durch die irreführende Einrückung) unleserlich und verwirrend.

Delphi-Quellcode:

    Reihe(b,c);
    if e = 1 then
    begin
      Spalte(b,c);
      Kasten(b,c);
      Positionsarray[Nr-1,0] := INr;
      Nr := Nr+1;
      INr := 0;
      Richtung := 1;
      BackTracking(Nr,INr);
    end
    else
    begin
      ...

Ebenfalls irreführend ist sowas:

Delphi-Quellcode:

    if Moeglichkeitenarray[Nr-1,0] <> 0 then
    sudokuarray[b,c] := 0;
    Nr := Nr-1;
    INr := (Positionsarray[Nr-1,0])+1;
    Richtung := 0;
    Backtracking(Nr,INr);

Auf den ersten Blick könnte man vermuten, dass alle diese Zeile von der Bedigung abhängig sind. Tatsächlich ist es aber nur die erste, die anderen werden immer ausgeführt.

Usw...

Rücke deinen Code ordentlich ein, fasse so weit wie möglich zusammen, und lagere redundante Codeteile in Subroutinen aus - glaub mir, es lohnt sich. Und ich wette, dass dir der Fehler sofort in die Augen springt, wenn du den Code mal ordentlich strukurierst.