エラーの種類で分岐するには？

ぶひ 2004-10-05 07:09:15 No: 11277

発生したエラーの種類による分岐の方法がどうにもわかりません。
例えば、 0で割ってしまったときは、「0では割れません」等のメッセージを表示するようにしたいです。
ご教授お願いします。

ぶひ 2004-10-05 07:11:22 No: 11278

書き忘れました。
開発環境は、win98 + 6Personalです。

にしの 2004-10-05 18:35:38 No: 11279

try...except構文を使用します。

  try
    b := 0;
    a := 10 div b;
    ShowMessage(IntToStr(a));
  except
    on e: EDivByZero do
    begin
      ShowMessage(e.Message);
    end;
  end;

例外が１つであったり、全ての例外を同じように扱うのであれば、on e:... doの部分は不要です。
ヘルプで、try, except, 例外処理などを検索してください。