在delphi中怎样定义一个这样的变量？

Question

label a;
begin
  goto a;
a:
 ....
end;

Answer 1

例如：  function XXX:Boolean;
  label
    LABEL_DestroyBracket;
  begin
    Result:=False;
    case MyPStack.TOP of
      '{'        :  if Value='}' then goto LABEL_DestroyBracket;
      '['        :  if Value=']' then goto LABEL_DestroyBracket;
      '('        :  if Value=')' then goto LABEL_DestroyBracket;
    end;
    Exit;
  LABEL_DestroyBracket:
    MyPStack.POP;
    Result:=True;
  end;

Answer 2

但是编译器提示 label not found

Answer 3

不要用 Goto 不利于程序的结构化设计，你可以用其他的语句来实现 Goto 的功能。