E2097 Break または Continue がループの外にあります (Delphi)

エラーと警告のメッセージ（Delphi） への移動

while ループまたは repeat ループに入っていない Break 文または Continue 文がありました。Break と Continue はループ内になくてはなりません。この 2 つの文は，ループ内でのみ使用できます。

program Produce;

  procedure Error;
    var i : Integer;
  begin
    i := 0;
    while i < 100 do
      INC(i);
      if odd(i) then begin
        INC(i);
  continue;
      end;
  end;

begin
end.

{ このコードは，Continue 文はループ構造の中に組み込まれているように見えるが，Delphi 言語の複文の規則によって，実際にはループ内に入っていない }

program Solve;

  procedure Error;
    var i : Integer;
  begin
    i := 0;
    while i < 100 do begin
      INC(i);
      if odd(i) then begin
        INC(i);
  continue;
      end;
    end;
  end;

begin
end.

{ 多くの場合，単にループ構造の外に複合文を作成すれば Continue 文または Break 文を確実に組み込める }