delphi의 goto 문장

1582 단어
일괄 처리와 어셈블리에서 고토를 사용한 적이 있지만델파이와 같은 구조가 강한 언어인 N여 명이 고토를 추천하지 않는다. 나 같은 풋내기에게는 상관없고 쓸 수 있으면 된다.
procedure TForm1.Button1Click(Sender: TObject); 
var 
  x: Integer; 
  label n1,n2,n3,4;  //goto         ,     0..9999    
begin 
  x := 0; 
  goto n3; 
  n1: x := x+1; 
  n2: x := x+2; 
  n3: x := x+3; 
  4:  x := x+4; 
  ShowMessage(IntToStr(x));  //  7   10 
end;

좋은 웹페이지 즐겨찾기