Möglichkeiten einen Schritt der for-Schleife zu überspringen

[d3g]

Hallo Luckie,

Zitat von Luckie:

Du kannst die Zählvariable innerhalb der for-Schleife nicht verändern!

Es geht mit einem schmutzigen Trick:

Code:

[b]procedure[/b] Produce();
[b]var[/b]
  i: Integer;
  p: ^Integer;
[b]begin[/b]
  [b]for[/b] i := 0 [b]to[/b] 9 [b]do[/b]
    [b]if[/b] (i = 4) [b]then begin[/b]
      ShowMessage(IntToStr(i));
      p := @i;
      p^ := i + 1;
      ShowMessage(IntToStr(i));
    [b]end[/b];
[b]end[/b];

MfG,
d3g