Question

好的，我目前是11年级学生，正在接受IT。我正在尝试完成一个实际的任务，但我遇到了一些问题，我正在使用的教科书没有告诉我如何在用户没有将数据输入RichEdit时创建错误消息。谁能告诉我如何做到这一点？感谢您抽出宝贵时间提供帮助。

Answer 1

这就是你如何引发一般异常（使用SysUtils.Exception类）：

raise Exception.Create('Error Message');

未处理的异常导致执行路径转义为Delphi RTL内部的默认异常处理程序，然后将向用户显示Exception.Message的值。

您甚至可以像这样处理自己的异常：

try
  ...
  raise Exception.Create('Error Message');
  ...
except
  on E: Exception do
  begin
    ShowMessage(E.Message);
  end;
end;

你实际上不会这样做。您引发异常，以便调用方法的代码可以处理错误。

如果要在其他地方（在调用者中）处理错误，请引发异常。

要简单地显示系统标准错误对话框，您可以使用MessageDlg：

MessageDlg('Error Message', mtError, [mbOK], 0);

在这种情况下，窗口的标题只是“错误”。如果您必须设置标题，请使用CreateMessageDialog：

with CreateMessageDialog('Error Message', mtError, [mbOK], mbOK) do
begin
  try
    Caption := 'Error Caption';
    ShowModal;
  finally
    Release;
  end;
end;

Exception班级位于System.SysUtils。 MessageDlg和CreateMessageDialog位于Vcl.Dialogs。

或使用TApplication.MessageBox()方法：

Application.MessageBox('Error Message', 'Error Caption', MB_OK or MB_ICONERROR);

创建错误消息Delphi 7

1 个答案: