{"id":78,"date":"2020-06-18T09:17:08","date_gmt":"2020-06-18T00:17:08","guid":{"rendered":"https:\/\/notes.sys-support.jp\/?p=78"},"modified":"2021-07-22T11:22:10","modified_gmt":"2021-07-22T02:22:10","slug":"delphi-%e3%82%a8%e3%83%a9%e3%83%bc%e5%87%a6%e7%90%86","status":"publish","type":"post","link":"https:\/\/notes.sys-support.jp\/?p=78","title":{"rendered":"delphi \u30a8\u30e9\u30fc\u51e6\u7406"},"content":{"rendered":"\n<pre class=\"wp-block-preformatted\">procedure TForm1.Button1Click(Sender: TObject);\nvar\nLValueA : Integer;\nLValueB : Integer;\nLExceptRec : PExceptionRecord;\nLErrCode : Integer;\nbegin\nMemo1.Lines.Clear;\nLValueA := 0;\ntry\nLValueB := 123 div LValueA;\nexcept\non E: Exception do begin\n\/\/PExceptionRecord\u3092\u53d6\u5f97\u3057\u3066\u30a8\u30e9\u30fc\u756a\u53f7\u3092\u53d6\u5f97\nLExceptRec := EExternal(E).ExceptionRecord;\nLErrCode := LExceptRec.ExceptionCode;\n<code>\/\/\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc\u30b8\u3068\u30a8\u30e9\u30fc\u756a\u53f7\u3092\u8868\u793a Memo1.Lines.Add(E.Message); Memo1.Lines.Add(E.ClassName); Memo1.Lines.Add('$' + IntToHex(LErrCode, 8)); end;<\/code>\nend;\nend;\n\n\u53c2\u8003URL:<a href=\"http:\/\/mrxray.on.coocan.jp\/Delphi\/Others\/RunError.htm\">http:\/\/mrxray.on.coocan.jp\/Delphi\/Others\/RunError.htm<\/a><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><\/p>\n","protected":false},"excerpt":{"rendered":"<p>procedure TForm1.Button1Click(Sender: TObject); var LValueA : Integer; LValueB : Integer; LExceptRec : PExcept &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/notes.sys-support.jp\/?p=78\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;delphi \u30a8\u30e9\u30fc\u51e6\u7406&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[2],"tags":[],"class_list":["post-78","post","type-post","status-publish","format-standard","hentry","category-delphi"],"_links":{"self":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/78","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=78"}],"version-history":[{"count":1,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/78\/revisions"}],"predecessor-version":[{"id":79,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/78\/revisions\/79"}],"wp:attachment":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=78"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=78"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=78"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}