Delphi中的goto语句

软件行业中有个经典的原则就是“能不用goto语句，就尽量不用。”，因为大量使用goto语句的程序将很难弄清逻辑，不利于程序的调试和后期维护。

不过，有时候简单地使用goto却能给程序带来简介。比如一个函数中有很多判断，而中间有较多的条件需要及时返回，并在返回前做一些相同的操作，比如恢复几个按钮的状态，这时候使用一个goto语句就比较合适了。

以下是一个例子：

procedure test; var ...... label // 同var，先要声明 Quit begin ... if ... then goto Quit; ... if ... then goto Quit; Quit: // 退出前的操作... Exit; end;