很简单的,判刑GOTO语句的使用

Question

我想在程序中用GOTO语句,但不懂怎么用,哪位大哥帮忙解说一下哩???

Answer 1

最好不用gotoprocedure TForm1.Button3Click(Sender: TObject);
label
  aa;
begin
  aa:
    ShowMessage('ok');
    goto aa;
end;

Answer 2

可是我有两个要嵌套的IF语句进行判断.要是不用GOTO语句的话,达不到效果,能不能帮我看看程序
  if ado_temp.FieldByName('del_other').AsBoolean=false then
    begin
     if E_mainf.user_bumen<>trim(adodataset1.FieldByName('bumen').AsString) then
       a:=messagebox(handle,'你没有足够的权限删除别部的记录','警告',mb_iconwarning)
    end
  else
  begin
  end;
我要让第二个IF语句不成立时,就执行最下面的begin end 那要怎么实现呢?

Answer 3

var b:boolean;
b=false;
if ado_temp.FieldByName('del_other').AsBoolean=false then
begin
if E_mainf.user_bumen<>trim(adodataset1.FieldByName('bumen').AsString) then
a:=messagebox(handle,'你没有足够的权限删除别部的记录','警告',mb_iconwarning)
else
  b=true;
end
else
begin
   b=true;
end;if b=true then
begin
执行这里的语句
end

Answer 4

嗯~可是如果第一个IF语句为假的时候要怎么执行
if b=true then
begin
执行这里的语句
end
我先试试看~

Answer 5

嗯~~问题解决了~~可是为什么不要用GOTO语句呢?有什么不好的吗?

Answer 6

goto 来，goto 去，结构混乱其实说起来并不是goto本身有什么不好的而且有一些时候它的效率非常高只是为了避免一些不必要的跳转错误而已了
不然调试起来也有点费力