使用 label 要 usus 什么吗？
我在开发一个unit，里面有些过程是早期在dos下用pascal开发的，包含几个label（标签），以便使用goto语句，但我放在delphi中编译，竟通不过声明label的语句，为什么？
我这个unit前面不加uses...,这会不会是通不过的原因？需要怎样才能使编译通过？
[解决办法]

unit Unit2;

interface

function test : Integer;
implementation
function test : Integer;
var
  x: Integer;
  label n1, n2, 4;
begin
  x := 0;
  goto n2;
  n1: x := x+1;
  n2: x := x+2;
  4:  x := x+4;
  result := x;  //返回6
end;
end.