Goto 制御

Goto ステートメントは指定したラベルに無条件に飛ばすフロー制御のステートメントです。
Delphi でも同じく Goto は存在します。 記述方法も同じです。
ただしラベルは label節 で宣言しないと使用できません。
一般的に Goto を使用したプログラムは好まれません。

■ Gotoの例

procedure TForm1.Button1Click(Sender: TObject); label Main_01, Main_02; begin if Length(Edit1.Text) > 10 then begin Goto Main_01; end else begin Goto Main_02; end; Main_01: Edit1.Text := Copy(Edit1.Text,1,10); //この処理はこのまま下に流れる↓ Main_02: Edit2.Text := Edit1.Text; end;