3

わかりました、私は現在 IT を取っている 11 年生です。実用的な課題を終わらせようとしていますが、少し問題が発生しました。使用している教科書には、ユーザーがリッチエディットにデータを入力しなかった場合にエラー メッセージを作成する方法が示されていませんでした。誰かがこれを行う方法について私にアドバイスできますか? お時間を割いていただきありがとうございます。

4

1 に答える 1

4

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);
于 2013-10-08T16:43:30.907 に答える