Kreuzworträtsel

[Noobmaster]

Die innere Schleife kann ich ja mit "break" beenden. Aber wie beende ich die äußere Schleife auch noch in der if-Bedingung? Muss ich dann zweimal "break" setzen?

[Helmi]

Zitat von Noobmaster:

Die innere Schleife kann ich ja mit "break" beenden. Aber wie beende ich die äußere Schleife auch noch in der if-Bedingung? Muss ich dann zweimal "break" setzen?

pro Schleife ist ein break notwendig!

Beispiel:

Delphi-Quellcode:

var
  bfound: Boolean;

{...}

   bfound := false;

   //Alle Kästchen nach der Nummer durchsuchen
    for i := 0 to SGridKreuzwort.ColCount - 1 do
      begin
        for j := 0 to SGridKreuzwort.RowCount - 1 do
          if SGridKreuzwort.Cells[i,j] = FrageNr then
            begin
              SGridKreuzwort.OnSelectCell := nil; //Verhindern, dass OnSelectCell sofort ausgeführt wird
              SGridKreuzwort.Col := (i + Horizontal);
              SGridKreuzwort.OnSelectCell := @SGridKreuzwortSelectCell; //darf wieder ausgeführt werden
              SGridKreuzwort.Row := (j + Vertikal);

              bfound := true;
              break;
            end; 
        If bfound then
          break;
      end;

[Noobmaster]

Alles klar, danke

[Helmi]

Wenn die Schleifen am Ende einer Procedure stehen, dann könnte man auch ein exit in der zweiten Schleife benutzen, dann wird sofort die Procedure beendet!
ja - ich bin mir bewusst dass ich für diese Aussage Schläge bekommen könnte!

[DeddyH]

Oder ganz ohne break oder exit:

Delphi-Quellcode:

found := false;
i := 0;
while (i < SGridKreuzwort.ColCount) and not found do
  begin
    j := 0;
    while (j < SGridKreuzwort.RowCount) and not found do
      begin
        if ... then
          begin
            found := true;
            (* weiterer Code *)
          end;
        inc(j);
      end;
    inc(i);
  end;

[Helmi]

Zitat von DeddyH:

Oder ganz ohne break oder exit:

ich liebe break, continue und exit

[DeddyH]

Ich will das ja auch nicht verteufeln, sondern nur eine Alternative zeigen.