DelphiXE(OCX)

○フィールドオーバーフローエラーを処理する例

try
　　Jvrlib.SetFieldText('商品名', sShohinName);
except
　　on E: Exception do // フィールドオーバーフロー以外はメッセージを表示する
　　　　if EOleException(E).ErrorCode and $ffff <> JV_OCXERR_FIELDOVERFLOW then
　　　　　　ShowMessage(E.ToString);
end;