使用 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.
