博客

Delphi Try Except 实例

  • Post author:
  • Post category:其他



  try
  except
    raise Exception.Create('123');
    exit;
  end;

  try
  except
    ShowMessage(Exception(ExceptObject).Message);
    exit;
  end;

  try
  except on e:Exception do
    begin
    ShowMessage(E.Message);
    exit;
    end;
  end;


版权声明：本文为qq_43466604原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。