procedure TForm1.Button8Click(Sender: TObject);
begin
  try
    Label1.Caption:='333';
    exit;
    Label1.Caption:='444';
  finally
    Label1.Caption:='333fff';
  end;
end;
请问各位Label1显示的字符串是什么?
exit;怎么没有退出button8事件??

解决方案 »

  1.   

    finally
    就是无论如何都执行,exit也没用
    exit;
    Label1.Caption:='444';//这个不会执行俄
      

  2.   

    尝试下这个
      try
        Label1.Caption:='333';
        exit;
        Label2.Caption:='444';
      finally
        Label1.Caption:='333fff';
      end;
      

  3.   

    333fff
    你把代码改成
    procedure TForm1.Button8Click(Sender: TObject);
    begin
      try
        Label1.Caption:='333';
        exit;
        Label1.Caption:='444';
        showmessage('123');
      finally
        Label1.Caption:='333fff';
      end;
      showmessage('456');
    end;
    就知道了。
    也就是说退出之前死活也得把finally里面的事情干完了。
      

  4.   

    要让你的EXIT执行,就把Finally 改为Except就行了.这样在执行了EXIT后就不会执行下面的了