本文整理自网络,侵删。
批处理和汇编中倒是都用过goto,delphi这类结构很强的语言N多人不推荐使用goto,对我这样的菜鸟来说无所谓,能用就行。
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
label n1,n2,n3,4; //goto的标签可以是标识符, 也可以是0..9999的数字
begin
x := 0;
goto n3;
n1: x := x+1;
n2: x := x+2;
n3: x := x+3;
4: x := x+4;
ShowMessage(IntToStr(x)); //返回7而不是10
end;
相关阅读 >>
Delphi lastdelimiter:在字符串中查找选定的字符最后出现的位置
Delphi 使用openjdk进行Delphi android开发
Delphi thread类的创建及使用(关于线程函数的传递例子)
Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止
更多相关阅读请进入《Delphi》频道 >>