Kreuzworträtsel

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