물론 있지요.

그러나 프로그램 logic상 권장할 만한건 아닙니다.



basic 프로그램을 해보셨나요?

"goto 30" 과 같은 형식으로 어느 line으로 무조건 분기하라고

명령을 내리지 않습니까?



delphi는 line번호가 없습니다.

그래서 번호 대신 label을 지정하게 되고 "goto label_name"과

같은 식으로 프로그램 합니다.



아래 예를 보시면 이해가 쉬울듯...



procedure Tfword.BitBtn1Click(Sender: TObject);

label replace_mode;

var

serial_id : integer;

FileHandle : TextFile;

begin

.....

if serial_id = 0 then goto replace_mode;

.....

exit;



replace_mode:

.....

end;



간략히 설명드리자면...

먼저 procedure 선언부에서 어떤 label을 사용할 것이지 정의합니다.

분기하고 싶은 부분에서 goto label_name 하면 됩니다.

※ 중요한 것은 replace_mode: 에서와 같이 끝이 ';'이 아니라 ':'

이라는 점입니다.



도움이 되었기를...