创建错误消息 Delphi 7

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

这是引发通用异常的方式（使用SysUtils.Exception class):

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;

The Exception班级在System.SysUtils. MessageDlg and CreateMessageDialog are in Vcl.Dialogs.

或者使用TApplication.MessageBox() method:

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