Thread内で発生した例外処理のカスタマイズは？ (ID:37486)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TThreadEx.Execute; var I,J,K: Extended; begin I := 10; J := 0; K := I / J; end; をやったとして ThreadEx.OnTerminate := OnTerminate; で if Assigned(TThreadEx(Sender).FatalException) = True then begin //EZeroDivide Exception(TThreadEx(Sender).FatalException).ClassName; //0 による浮動小数点数除算例外 Exception(TThreadEx(Sender).FatalException).Message; end;