{"id":57,"date":"2024-04-04T23:57:40","date_gmt":"2024-04-05T02:57:40","guid":{"rendered":"https:\/\/code4delphi.com.br\/blog\/?p=57"},"modified":"2024-12-13T13:54:53","modified_gmt":"2024-12-13T16:54:53","slug":"diretivas-de-compilacao","status":"publish","type":"post","link":"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/","title":{"rendered":"Diretivas de compila\u00e7\u00e3o no\u00a0Delphi"},"content":{"rendered":"\n<p dir=\"auto\">Ol\u00e1, leitores!<\/p>\n<p dir=\"auto\">Neste artigo iremos abordar o uso de diretivas de compila\u00e7\u00e3o com Delphi e tamb\u00e9m veremos v\u00e1rios exemplos do seu uso.<\/p>\n\n\n\n<div id=\"ez-toc-container\" class=\"ez-toc-v2_0_81 counter-hierarchy ez-toc-counter ez-toc-grey ez-toc-container-direction\">\n<div class=\"ez-toc-title-container\">\n<p class=\"ez-toc-title ez-toc-toggle\" style=\"cursor:pointer\">Sum\u00e1rio<\/p>\n<span class=\"ez-toc-title-toggle\"><a href=\"#\" class=\"ez-toc-pull-right ez-toc-btn ez-toc-btn-xs ez-toc-btn-default ez-toc-toggle\" aria-label=\"Alternar tabela de conte\u00fado\"><span class=\"ez-toc-js-icon-con\"><span class=\"\"><span class=\"eztoc-hide\" style=\"display:none;\">Toggle<\/span><span class=\"ez-toc-icon-toggle-span\"><svg style=\"fill: #999;color:#999\" xmlns=\"http:\/\/www.w3.org\/2000\/svg\" class=\"list-377408\" width=\"20px\" height=\"20px\" viewBox=\"0 0 24 24\" fill=\"none\"><path d=\"M6 6H4v2h2V6zm14 0H8v2h12V6zM4 11h2v2H4v-2zm16 0H8v2h12v-2zM4 16h2v2H4v-2zm16 0H8v2h12v-2z\" fill=\"currentColor\"><\/path><\/svg><svg style=\"fill: #999;color:#999\" class=\"arrow-unsorted-368013\" xmlns=\"http:\/\/www.w3.org\/2000\/svg\" width=\"10px\" height=\"10px\" viewBox=\"0 0 24 24\" version=\"1.2\" baseProfile=\"tiny\"><path d=\"M18.2 9.3l-6.2-6.3-6.2 6.3c-.2.2-.3.4-.3.7s.1.5.3.7c.2.2.4.3.7.3h11c.3 0 .5-.1.7-.3.2-.2.3-.5.3-.7s-.1-.5-.3-.7zM5.8 14.7l6.2 6.3 6.2-6.3c.2-.2.3-.5.3-.7s-.1-.5-.3-.7c-.2-.2-.4-.3-.7-.3h-11c-.3 0-.5.1-.7.3-.2.2-.3.5-.3.7s.1.5.3.7z\"\/><\/svg><\/span><\/span><\/span><\/a><\/span><\/div>\n<nav><ul class='ez-toc-list ez-toc-list-level-1 eztoc-toggle-hide-by-default' ><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-1\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#%F0%9F%93%A5_Repositorio_com_exemplos\" >\ud83d\udce5 Reposit\u00f3rio com exemplos<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-2\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#%E2%96%B6%EF%B8%8F_Video_de_demonstracao\" >\u25b6\ufe0f&nbsp;V\u00eddeo de demonstra\u00e7\u00e3o<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-3\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#%F0%9F%9A%80_O_QUE_SAO_DIRETIVAS_DE_COMPILACAO\" >\ud83d\ude80 O QUE S\u00c3O DIRETIVAS DE COMPILA\u00c7\u00c3O<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-4\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#DEFINIRINDEFINIR\" >DEFINIR\/INDEFINIR<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-5\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#CONDICOES_IF_ELSEIF_E_ELSE\" >CONDI\u00c7\u00d5ES IF, ELSEIF E ELSE<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-6\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#CONSTANTES\" >CONSTANTES<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-7\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#MESSAGES\" >MESSAGES<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-8\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#SISTEMAS_OPERACIONAIS\" >SISTEMAS OPERACIONAIS<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-9\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#DEBUG_OU_RELEASE\" >DEBUG OU RELEASE<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-10\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#PLATAFORMAS\" >PLATAFORMAS<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-11\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#FRAMEWORK\" >FRAMEWORK<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-12\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#VERSAO_DO_DELPHI\" >VERS\u00c3O DO DELPHI<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-13\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#SCOPEDENUMS\" >SCOPEDENUMS<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-14\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#HINTS\" >HINTS<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-15\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#WARNINGS\" >WARNINGS<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-16\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#WARNING_MESSAGES\" >WARNING MESSAGES<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-17\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#REGION\" >REGION<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-18\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#ARQUIVOS_inc\" >ARQUIVOS .inc<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-19\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#USANDO_O_IDE\" >USANDO O IDE<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-3'><a class=\"ez-toc-link ez-toc-heading-20\" href=\"https:\/\/code4delphi.com.br\/blog\/diretivas-de-compilacao\/#%F0%9F%94%97_LINKS_UTEIS\" >\ud83d\udd17 LINKS \u00daTEIS<\/a><\/li><\/ul><\/nav><\/div>\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"%F0%9F%93%A5_Repositorio_com_exemplos\"><\/span>\ud83d\udce5 Reposit\u00f3rio com exemplos<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<p>O projeto de exemplo, pode ser encontrado e baixado em nosso GitHub no seguinte link: <a href=\"https:\/\/github.com\/Code4Delphi\/diretivas-de-compilacao-delphi\" target=\"_blank\" rel=\"noopener\">https:\/\/github.com\/Code4Delphi\/diretivas-de-compilacao-delphi<\/a><\/p>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"%E2%96%B6%EF%B8%8F_Video_de_demonstracao\"><\/span>\u25b6\ufe0f&nbsp;V\u00eddeo de demonstra\u00e7\u00e3o<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<figure class=\"wp-block-embed is-type-video is-provider-youtube wp-block-embed-youtube wp-embed-aspect-16-9 wp-has-aspect-ratio\"><div class=\"wp-block-embed__wrapper\">\n<div class=\"video-container\"><iframe loading=\"lazy\" title=\"Delphi:  Diretivas de compila\u00e7\u00e3o do b\u00e1sico ao avan\u00e7ado\" width=\"740\" height=\"416\" src=\"https:\/\/www.youtube.com\/embed\/ZoKMIpF2lG0?list=PLLHSz4dOnnN1Hx0KtSwqN1Ory9HP7IDJn\" frameborder=\"0\" allow=\"accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share\" referrerpolicy=\"strict-origin-when-cross-origin\" allowfullscreen><\/iframe><\/div>\n<\/div><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"%F0%9F%9A%80_O_QUE_SAO_DIRETIVAS_DE_COMPILACAO\"><\/span>\ud83d\ude80 O QUE S\u00c3O DIRETIVAS DE COMPILA\u00c7\u00c3O<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<p dir=\"auto\">Uma diretiva de compila\u00e7\u00e3o \u00e9 um coment\u00e1rio com uma sintaxe especial. A diretiva de compila\u00e7\u00e3o come\u00e7a com um $ (sinal de d\u00f3lar) como o primeiro caractere ap\u00f3s o delimitador de coment\u00e1rio de abertura, imediatamente seguido por um nome (uma ou mais letras) que designa a diretiva espec\u00edfica. Voc\u00ea pode incluir coment\u00e1rios ap\u00f3s a diretiva e quaisquer par\u00e2metros necess\u00e1rios.<\/p>\n<p dir=\"auto\">As diretivas de compila\u00e7\u00e3o podem ser colocadas onde quer que os coment\u00e1rios sejam permitidos. Exemplos de diretivas:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$hints off}  \n(*$hints off*)\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #E7EE98\">{$hints off}<\/span><span style=\"color: #F6F6F4\">  <\/span><\/span>\n<span class=\"line\"><span style=\"color: #7B7F8B\">(*$hints off*)<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"DEFINIRINDEFINIR\"><\/span>DEFINIR\/INDEFINIR<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul>\n<li>CRIAR\/DEFINIR UMA DIRETIVA<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$DEFINE NAME_DIRECTIVE_TEST}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$DEFINE NAME_DIRECTIVE_TEST}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>DESATIVAR\/INDEFINIR UMA DIRETIVA<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$UNDEF NAME_DIRECTIVE_TEST}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$UNDEF NAME_DIRECTIVE_TEST}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"CONDICOES_IF_ELSEIF_E_ELSE\"><\/span>CONDI\u00c7\u00d5ES IF, ELSEIF E ELSE<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>IF e ELSE PARA TESTAR SE A DIRETIVA ESTA DEFINIDA<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$IFDEF NAME_DIRECTIVE_TEST}\n    Memo1.Lines.Add('Diretiva NAME_DIRECTIVE_TEST est\u00e1 definida');\n  {$ELSE}\n    Memo1.Lines.Add('Diretiva NAME_DIRECTIVE_TEST N\u00c3O est\u00e1 definida');\n  {$ENDIF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF NAME_DIRECTIVE_TEST}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva NAME_DIRECTIVE_TEST est\u00e1 definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva NAME_DIRECTIVE_TEST N\u00c3O est\u00e1 definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>IF, ELSEIF e ELSE<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$DEFINE VALOR_02}\n  {$IFDEF VALOR_01}\n    Memo1.Lines.Add('Diretiva VALOR_01 definida');\n  {$ELSEIF DEFINED(VALOR_02)}\n    Memo1.Lines.Add('Diretiva VALOR_02 definida');\n  {$ELSEIF DEFINED(VALOR_03)}\n    Memo1.Lines.Add('Diretiva VALOR_03 definida');\n  {$ELSE}\n    Memo1.Lines.Add('Diretivas VALOR_01, VALOR_02 E VALOR_03 n\u00e3o est\u00e3o definidas');\n  {$ENDIF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$DEFINE VALOR_02}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF VALOR_01}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva VALOR_01 definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VALOR_02)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva VALOR_02 definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VALOR_03)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva VALOR_03 definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretivas VALOR_01, VALOR_02 E VALOR_03 n\u00e3o est\u00e3o definidas<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>IF com NOT<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$IF NOT DEFINED(DIRETIVA_NOT)}\n    Memo1.Lines.Add('Diretiva DIRETIVA_NOT n\u00e3o definida');\n  {$ELSE}\n    Memo1.Lines.Add('Diretiva DIRETIVA_NOT definida');\n  {$ENDIF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF NOT DEFINED(DIRETIVA_NOT)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva DIRETIVA_NOT n\u00e3o definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Diretiva DIRETIVA_NOT definida<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"CONSTANTES\"><\/span>CONSTANTES<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar o valor de uma constantes<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnComContantesClick(Sender: TObject);\nconst\n  VERSAO = 6.8;\nbegin\n  {$IF VERSAO &lt;= 5}\n    Memo1.Lines.Add('Valor da constante VERSAO \u00e9 menor ou igual 5');\n  {$ELSEIF (VERSAO &gt; 5) AND (VERSAO &lt;= 10)}\n    Memo1.Lines.Add('Valor da constante VERSAO \u00e9 maior que 5 e menor que 10');\n  {$ELSE}\n    Memo1.Lines.Add('Valor da constante VERSAO \u00e9 maior que 10');\n  {$IFEND}\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnComContantesClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">const<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  VERSAO = <\/span><span style=\"color: #BF9EEE\">6.8<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF VERSAO &lt;= 5}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante VERSAO \u00e9 menor ou igual 5<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF (VERSAO &gt; 5) AND (VERSAO &lt;= 10)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante VERSAO \u00e9 maior que 5 e menor que 10<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante VERSAO \u00e9 maior que 10<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFEND}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar o valor de uma constantes Integer<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnComContantesIntegerClick(Sender: TObject);\nconst\n  TEST_INTEGER: Integer = 3;\nbegin\n  {$IF SizeOf(TEST_INTEGER) &lt;= 5}\n  Memo1.Lines.Add('Valor da constante TEST_INTEGER \u00e9 menor ou igual 5');\n  {$ELSE}\n  Memo1.Lines.Add('Valor da constante TEST_INTEGER \u00e9 maior que 5');\n  {$IFEND}\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnComContantesIntegerClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">const<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  TEST_INTEGER: <\/span><span style=\"color: #F286C4\">Integer<\/span><span style=\"color: #F6F6F4\"> = <\/span><span style=\"color: #BF9EEE\">3<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF SizeOf(TEST_INTEGER) &lt;= 5}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante TEST_INTEGER \u00e9 menor ou igual 5<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante TEST_INTEGER \u00e9 maior que 5<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFEND}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Permitir a&nbsp;<strong>altera\u00e7\u00e3o do valor de constantes<\/strong><\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnAlterarValorConstantesClick(Sender: TObject);\n\/\/NAO PERMITE ALTERAR CONSTANTES (E O PADRAO DA IDE) : {$J-} OU {$WRITEABLECONST OFF}\n{$J-}\n\n\/\/PERMITE ALTERAR CONSTANTES : {$J+} OU {$WRITEABLECONST ON}\n{$WRITEABLECONST ON}\nconst\n  MINHA_CONST: Integer = 2023;\nbegin\n  Memo1.Lines.Add('Valor da constante \u00e9: ' + MINHA_CONST.ToString);\n  MINHA_CONST := 2024;\n  Memo1.Lines.Add('Valor constante ap\u00f3s altera\u00e7\u00e3o \u00e9: ' + MINHA_CONST.ToString);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnAlterarValorConstantesClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #7B7F8B\">\/\/NAO PERMITE ALTERAR CONSTANTES (E O PADRAO DA IDE) : {$J-} OU {$WRITEABLECONST OFF}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$J-}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #7B7F8B\">\/\/PERMITE ALTERAR CONSTANTES : {$J+} OU {$WRITEABLECONST ON}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$WRITEABLECONST ON}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">const<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  MINHA_CONST: <\/span><span style=\"color: #F286C4\">Integer<\/span><span style=\"color: #F6F6F4\"> = <\/span><span style=\"color: #BF9EEE\">2023<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor da constante \u00e9: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + MINHA_CONST.ToString);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  MINHA_CONST := <\/span><span style=\"color: #BF9EEE\">2024<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Valor constante ap\u00f3s altera\u00e7\u00e3o \u00e9: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + MINHA_CONST.ToString);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Ao definir um valor de constante<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnAoDefinirValorDeConstantesClick(Sender: TObject);\nconst\n  {$IFDEF DEBUG}\n    DEBUG_OR_RELEASE = 'Debug';\n  {$ELSE}\n    DEBUG_OR_RELEASE = 'Release';\n  {$ENDIF}\nbegin\n  Memo1.Lines.Add('A IDE esta em modo: ' + DEBUG_OR_RELEASE);\nend;\n\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnAoDefinirValorDeConstantesClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">const<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF DEBUG}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    DEBUG_OR_RELEASE = <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Debug<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    DEBUG_OR_RELEASE = <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Release<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">A IDE esta em modo: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + DEBUG_OR_RELEASE);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"MESSAGES\"><\/span>MESSAGES<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Gerar Messages ao compilar ou dar build no projeto (as mensagens geradas sao exibidas nas abas &#8220;Build&#8221; e &#8220;Output&#8221;)<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  \/\/EMITS A HINT\n  {$MESSAGE 'Meu Hint teste ao compilar'}\n\n  \/\/EMITS A HINT\n  {$MESSAGE Hint 'Mais um Hint ao compilar'}\n\n  \/\/EMITS A WARNING\n  {$MESSAGE Warn 'Meu Warning teste ao compilar.'}\n\n  \/\/EMITS AN ERROR, CONTINUES COMPILING\n  {$Message Error 'Exibe mensagem de erro, e n\u00e3o permite a continua\u00e7\u00e3o da compila\u00e7\u00e3o'}\n\n  \/\/EMITS AN ERROR, TERMINATES COMPILER\n  {$Message Fatal 'Exibe mensagem de terminate, e n\u00e3o permite a continua\u00e7\u00e3o da compila\u00e7\u00e3o'}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/EMITS A HINT<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$MESSAGE &#39;Meu Hint teste ao compilar&#39;}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/EMITS A HINT<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$MESSAGE Hint &#39;Mais um Hint ao compilar&#39;}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/EMITS A WARNING<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$MESSAGE Warn &#39;Meu Warning teste ao compilar.&#39;}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/EMITS AN ERROR, CONTINUES COMPILING<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$Message Error &#39;Exibe mensagem de erro, e n\u00e3o permite a continua\u00e7\u00e3o da compila\u00e7\u00e3o&#39;}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/EMITS AN ERROR, TERMINATES COMPILER<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$Message Fatal &#39;Exibe mensagem de terminate, e n\u00e3o permite a continua\u00e7\u00e3o da compila\u00e7\u00e3o&#39;}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"SISTEMAS_OPERACIONAIS\"><\/span>SISTEMAS OPERACIONAIS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual o Sistema Operacional<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnSOClick(Sender: TObject);\nvar\n  LSO: string;\nbegin\n  {$IF LINUX}\n    LSO := 'LINUX';\n  {$ELSEIF DEFINED(MSWINDOWS)}\n    LSO := 'MSWINDOWS';\n  {$ELSEIF DEFINED(ANDROID)}\n    LSO := 'ANDROID';\n  {$ELSEIF DEFINED(IOS)}\n    LSO := 'IOS';\n  {$ELSEIF DEFINED(MACOS)}\n    LSO := 'MACOS';\n  {$ELSEIF DEFINED(POSIX)}\n    LSO := 'POSIX';\n  {$ELSE}\n    LSO := 'N\u00e3o encontrada';\n  {$ENDIF}\n\n  Memo1.Lines.Add('Sistema operacional selecionado: ' + LSO);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnSOClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LSO: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF LINUX}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">LINUX<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(MSWINDOWS)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">MSWINDOWS<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(ANDROID)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">ANDROID<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(IOS)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">IOS<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(MACOS)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">MACOS<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(POSIX)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">POSIX<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LSO := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">N\u00e3o encontrada<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Sistema operacional selecionado: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LSO);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"DEBUG_OU_RELEASE\"><\/span>DEBUG OU RELEASE<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar se IDE est\u00e1 em Debug ou Release<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnIdeEmDebugOuReleaseClick(Sender: TObject);\nbegin\n  {$IFDEF DEBUG}\n    Memo1.Lines.Add('Modo de Debug');\n  {$ELSEIF DEFINED(RELEASE)}\n    Memo1.Lines.Add('Modo de Release');\n  {$ELSE}\n    Memo1.Lines.Add('Modo diferente de Debug e Release');\n  {$ENDIF}\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnIdeEmDebugOuReleaseClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF DEBUG}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Modo de Debug<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(RELEASE)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Modo de Release<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Modo diferente de Debug e Release<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"PLATAFORMAS\"><\/span>PLATAFORMAS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual a Plataforma<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnPlataformasClick(Sender: TObject);\nvar\n  LPlataforma: string;\nbegin\n  {$IFDEF CONSOLE}\n    LPlataforma := 'CONSOLE';\n  {$ELSEIF DEFINED(WIN32)}\n    LPlataforma := 'WIN32';\n  {$ELSEIF DEFINED(WIN64)}\n    LPlataforma := 'WIN64';\n  {$ELSEIF DEFINED(LINUX32)}\n    LPlataforma := 'LINUX32';\n  {$ELSEIF DEFINED(LINUX64)}\n    LPlataforma := 'LINUX64';\n  {$ELSEIF DEFINED(ANDROID32)}\n    LPlataforma := 'ANDROID32';\n  {$ELSEIF DEFINED(ANDROID64)}\n    LPlataforma := 'ANDROID64';\n  {$ELSEIF DEFINED(IOS64)}\n    LPlataforma := 'IOS64';\n  {$ELSEIF DEFINED(MACOS32)}\n    LPlataforma := 'MACOS32';\n  {$ELSEIF DEFINED(MACOS64)}\n    LPlataforma := 'MACOS64';\n  {$ELSE}\n    LPlataforma := 'N\u00e3o encontrada';\n  {$ENDIF}\n\n  Memo1.Lines.Add('Plataforma atual: ' + LPlataforma);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnPlataformasClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LPlataforma: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF CONSOLE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">CONSOLE<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(WIN32)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">WIN32<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(WIN64)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">WIN64<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(LINUX32)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">LINUX32<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(LINUX64)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">LINUX64<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(ANDROID32)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">ANDROID32<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(ANDROID64)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">ANDROID64<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(IOS64)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">IOS64<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(MACOS32)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">MACOS32<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(MACOS64)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">MACOS64<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LPlataforma := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">N\u00e3o encontrada<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Plataforma atual: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LPlataforma);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"FRAMEWORK\"><\/span>FRAMEWORK<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual o Framework (VCL ou FMX)<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnVclOuFmxClick(Sender: TObject);\nvar\n  LFramework: string;\nbegin\n  \/\/AS SEGUINTES CONDICIONAIS EST\u00c3O DISPON\u00cdVEIS A PARTIR DO RAD STUDIO 11.1 Alexandria, Release 1\n  \/\/FRAMEWORK_VCL : Definido se o projeto usa o framework VCL\n  \/\/FRAMEWORK_FMX : Definido se o projeto usa o framework FMX\n\n  \/\/PARA VERSOES ANTERIORES AO 11.1 Alexandria, PODE SER DEFIDA MANUALMENTE. EXEMPLO:\n  {$IF CompilerVersion &lt; 35.0)}\n    {$DEFINE FRAMEWORK_VCL}\n  {$ENDIF}\n\n  {$IFDEF FRAMEWORK_VCL}\n    LFramework := 'VCL';\n  {$ELSEIF DEFINED(FRAMEWORK_FMX)}\n    LFramework := 'FMX';\n  {$ELSE}\n    LFramework := 'N\u00e3o encontrado';\n  {$ENDIF}\n\n  Memo1.Lines.Add('Plataforma atual: ' + LFramework);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnVclOuFmxClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LFramework: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/AS SEGUINTES CONDICIONAIS EST\u00c3O DISPON\u00cdVEIS A PARTIR DO RAD STUDIO 11.1 Alexandria, Release 1<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/FRAMEWORK_VCL : Definido se o projeto usa o framework VCL<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/FRAMEWORK_FMX : Definido se o projeto usa o framework FMX<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/PARA VERSOES ANTERIORES AO 11.1 Alexandria, PODE SER DEFIDA MANUALMENTE. EXEMPLO:<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF CompilerVersion &lt; 35.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    <\/span><span style=\"color: #E7EE98\">{$DEFINE FRAMEWORK_VCL}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF FRAMEWORK_VCL}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LFramework := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">VCL<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(FRAMEWORK_FMX)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LFramework := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">FMX<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LFramework := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">N\u00e3o encontrado<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Plataforma atual: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LFramework);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"VERSAO_DO_DELPHI\"><\/span>VERS\u00c3O DO DELPHI<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual a vers\u00e3o do Delphi (VERXX)<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnVersaoDelphiVERXXClick(Sender: TObject);\nvar\n  LNomeVersao: string;\nbegin\n  {$IFDEF VER300}\n    LNomeVersao := 'Delphi 10 Seattle (VER300)';\n  {$ELSEIF DEFINED(VER310)}\n    LNomeVersao := 'Delphi 10.1 Berlin (VER310)';\n  {$ELSEIF DEFINED(VER320)}\n    LNomeVersao := 'Delphi 10.2 Tokyo (VER320)';\n  {$ELSEIF DEFINED(VER330)}\n    LNomeVersao := 'Delphi 10.3 Rio (VER330)';\n  {$ELSEIF DEFINED(VER340)}\n    LNomeVersao := 'Delphi 10.4 Sydney (VER340)';\n  {$ELSEIF DEFINED(VER350)}\n    LNomeVersao := 'Delphi 11.0 Alexandria (VER350)';\n  {$ELSEIF DEFINED(VER360)}\n    LNomeVersao := 'Delphi 12.0 Athens (VER360)';\n  {$ELSE}\n    LNomeVersao := 'Vers\u00e3o ANTERIOR a Delphi 10 Seattle ' + sLineBreak + 'Sua vers\u00e3o \u00e9 a: ' + CompilerVersion.ToString;\n  {$ENDIF}\n\n  Memo1.Lines.Add('A vers\u00e3o do seu Delphi \u00e9 a: ' + LNomeVersao);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnVersaoDelphiVERXXClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LNomeVersao: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IFDEF VER300}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10 Seattle (VER300)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER310)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.1 Berlin (VER310)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER320)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.2 Tokyo (VER320)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER330)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.3 Rio (VER330)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER340)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.4 Sydney (VER340)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER350)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 11.0 Alexandria (VER350)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF DEFINED(VER360)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 12.0 Athens (VER360)<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Vers\u00e3o ANTERIOR a Delphi 10 Seattle <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + sLineBreak + <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Sua vers\u00e3o \u00e9 a: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + CompilerVersion.ToString;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">A vers\u00e3o do seu Delphi \u00e9 a: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LNomeVersao);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual a vers\u00e3o Delphi (CompilerVersion)<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnVersaoDelphiCompilerVersionClick(Sender: TObject);\nvar\n  LNomeVersao: string;\nbegin\n  {$IF CompilerVersion = 30.0}\n    LNomeVersao := 'Delphi 10 Seattle';\n  {$ELSEIF CompilerVersion = 31.0)}\n    LNomeVersao := 'Delphi 10.1 Berlin';\n  {$ELSEIF CompilerVersion = 32.0)}\n    LNomeVersao := 'Delphi 10.2 Tokyo';\n  {$ELSEIF CompilerVersion = 33.0)}\n    LNomeVersao := 'Delphi 10.3 Rio';\n  {$ELSEIF CompilerVersion = 34.0)}\n    LNomeVersao := 'Delphi 10.4 Sydney';\n  {$ELSEIF CompilerVersion = 35.0)}\n    LNomeVersao := 'Delphi 11.0 Alexandria';\n  {$ELSEIF CompilerVersion = 36.0)}\n    LNomeVersao := 'Delphi 12.0 Athens';\n  {$ELSEIF CompilerVersion &gt;= 37.0)}\n    LNomeVersao := 'Delphi maior ou igual a 37.0';\n  {$ELSE}\n    LNomeVersao := 'Vers\u00e3o ANTERIOR a Delphi 10 Seattle';\n  {$ENDIF}\n  Memo1.Lines.Add('A vers\u00e3o do seu Delphi \u00e9 a: ' + LNomeVersao + ' - N\u00famero da CompilerVersion: ' + CompilerVersion.ToString);\n\n  if(CompilerVersion = 33)then\n    Memo1.Lines.Add('Function CompilerVersion = 33. Vers\u00e3o do seu delphi \u00e9 10.3 Rio')\n  else\n    Memo1.Lines.Add('Function CompilerVersion = ' + CompilerVersion.ToString);\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnVersaoDelphiCompilerVersionClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LNomeVersao: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF CompilerVersion = 30.0}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10 Seattle<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 31.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.1 Berlin<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 32.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.2 Tokyo<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 33.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.3 Rio<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 34.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.4 Sydney<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 35.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 11.0 Alexandria<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion = 36.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 12.0 Athens<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF CompilerVersion &gt;= 37.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi maior ou igual a 37.0<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Vers\u00e3o ANTERIOR a Delphi 10 Seattle<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">A vers\u00e3o do seu Delphi \u00e9 a: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LNomeVersao + <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\"> - N\u00famero da CompilerVersion: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + CompilerVersion.ToString);<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #F286C4\">if<\/span><span style=\"color: #F6F6F4\">(CompilerVersion = <\/span><span style=\"color: #BF9EEE\">33<\/span><span style=\"color: #F6F6F4\">)<\/span><span style=\"color: #F286C4\">then<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Function CompilerVersion = 33. Vers\u00e3o do seu delphi \u00e9 10.3 Rio<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">)<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #F286C4\">else<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Function CompilerVersion = <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + CompilerVersion.ToString);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Verificar qual a vers\u00e3o Delphi (RTLVersion)<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(2 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"procedure TViewMain.btnVersaoDelphiRTLVersionClick(Sender: TObject);\nvar\n  LNomeVersao: string;\nbegin\n  {$IF RTLVersion = 30.0}\n    LNomeVersao := 'Delphi 10 Seattle';\n  {$ELSEIF RTLVersion = 31.0)}\n    LNomeVersao := 'Delphi 10.1 Berlin';\n  {$ELSEIF RTLVersion = 32.0)}\n    LNomeVersao := 'Delphi 10.2 Tokyo';\n  {$ELSEIF RTLVersion = 33.0)}\n    LNomeVersao := 'Delphi 10.3 Rio';\n  {$ELSEIF RTLVersion = 34.0)}\n    LNomeVersao := 'Delphi 10.4 Sydney';\n  {$ELSEIF RTLVersion = 35.0)}\n    LNomeVersao := 'Delphi 11.0 Alexandria';\n  {$ELSEIF RTLVersion = 36.0)}\n    LNomeVersao := 'Delphi 12.0 Athens';\n  {$ELSEIF RTLVersion &gt;= 37.0)}\n    LNomeVersao := 'Delphi maior ou igual a 37.0';\n  {$ELSE}\n    LNomeVersao := 'Vers\u00e3o ANTERIOR a Delphi 10 Seattle';\n  {$ENDIF}\n\n  Memo1.Lines.Add('A vers\u00e3o do seu Delphi \u00e9 a: ' + LNomeVersao + ' - N\u00famero da RTLVersion: ' + FloatToStr(RTLVersion));\nend;\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">TViewMain.btnVersaoDelphiRTLVersionClick<\/span><span style=\"color: #F6F6F4\">(Sender: TObject);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">var<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  LNomeVersao: <\/span><span style=\"color: #F286C4\">string<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$IF RTLVersion = 30.0}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10 Seattle<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 31.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.1 Berlin<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 32.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.2 Tokyo<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 33.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.3 Rio<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 34.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 10.4 Sydney<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 35.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 11.0 Alexandria<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion = 36.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi 12.0 Athens<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSEIF RTLVersion &gt;= 37.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Delphi maior ou igual a 37.0<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ELSE}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">    LNomeVersao := <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Vers\u00e3o ANTERIOR a Delphi 10 Seattle<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  Memo1.Lines.<\/span><span style=\"color: #F286C4\">Add<\/span><span style=\"color: #F6F6F4\">(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">A vers\u00e3o do seu Delphi \u00e9 a: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + LNomeVersao + <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\"> - N\u00famero da RTLVersion: <\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\"> + FloatToStr(RTLVersion));<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"SCOPEDENUMS\"><\/span>SCOPEDENUMS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>No estado {$SCOPEDENUMS ON}, as enumera\u00e7\u00f5es t\u00eam escopo e os valores de enum n\u00e3o s\u00e3o adicionados ao escopo global<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$SCOPEDENUMS ON}\n  TAssinado = (Sim, Nao);\n  TEnviado = (Sim, Nao);\n  {$SCOPEDENUMS OFF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$SCOPEDENUMS ON}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  TAssinado = (Sim, Nao);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  TEnviado = (Sim, Nao);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$SCOPEDENUMS OFF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"HINTS\"><\/span>HINTS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Desabilita Hints ao compilar, ou seja, n\u00e3o ser\u00e1 exibido nenhum Hints a partir do ponto que a diretiva estiver, a n\u00e3o ser que exista a diretiva {$HINTS ON} no mesmo escopo<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$HINTS OFF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$HINTS OFF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Habilitar Hints ao compilar<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$HINTS ON}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$HINTS ON}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"WARNINGS\"><\/span>WARNINGS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Desabilitar Warnings ao compilar, ou seja, n\u00e3o ser\u00e1 exibido nenhum Warning a partir do ponto que a diretiva estiver<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$WARNINGS OFF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$WARNINGS OFF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<ul dir=\"auto\">\n<li>Habilitar Warnings ao compilar<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  {$WARNINGS ON}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$WARNINGS ON}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"WARNING_MESSAGES\"><\/span>WARNING MESSAGES<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Estas diretivas d\u00e3o um controle sobre mensagens de avisos (warnings) individuais<\/li>\n<\/ul>\n<p dir=\"auto\">Sintaxe:<br>&nbsp;&nbsp; {$WARN identifier ON | OFF | ERROR | DEFAULT}<br>&nbsp;&nbsp; {$WARN identifier ON} Permite que o compilador exiba o aviso especificado pelo identificador<br>&nbsp;&nbsp; {$WARN identifier OFF} O aviso especificado n\u00e3o \u00e9 exibido<br>&nbsp;&nbsp; {$WARN identifier ERROR} O aviso especificado \u00e9 tratado como erro<br>&nbsp;&nbsp; {$WARN identifier DEFAULT} Usa as configura\u00e7\u00f5es padr\u00e3o da caixa de di\u00e1logo Op\u00e7\u00f5es do Projeto<\/p>\n<p dir=\"auto\">Exemplos:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"  \/\/HABILITA OS WARNINGS DO TIPO SYMBOL_EXPERIMENTAL\n  {$WARN SYMBOL_EXPERIMENTAL ON}\n\n  \/\/DESABILITA OS WARNINGS DO TIPO SYMBOL_EXPERIMENTAL\n  {$WARN SYMBOL_EXPERIMENTAL OFF}\n\n  \/\/TRANSFORMA OS WARINGS TIPO SYMBOL_EXPERIMENTAL EM ERROS\n  {$WARN SYMBOL_EXPERIMENTAL ERROR}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/HABILITA OS WARNINGS DO TIPO SYMBOL_EXPERIMENTAL<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$WARN SYMBOL_EXPERIMENTAL ON}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/DESABILITA OS WARNINGS DO TIPO SYMBOL_EXPERIMENTAL<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$WARN SYMBOL_EXPERIMENTAL OFF}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #7B7F8B\">\/\/TRANSFORMA OS WARINGS TIPO SYMBOL_EXPERIMENTAL EM ERROS<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$WARN SYMBOL_EXPERIMENTAL ERROR}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<div style=\"height:33px\" aria-hidden=\"true\" class=\"wp-block-spacer\"><\/div>\n\n\n\n<p><strong>Dica<\/strong>: Para evitar mensagens como essa &#8220;W1000 Symbol &#8216;Name&#8217; is deprecated&#8221; em componentes e bibliotecas de terceiros. Basta usar a seguinte diretiva no inicio da Unit:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$WARN SYMBOL_DEPRECATED OFF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">{$WARN SYMBOL_DEPRECATED OFF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<p>Lista completa:\u00a0<\/p>\n<p><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Warning_messages_(Delphi)\" target=\"_blank\" rel=\"nofollow noopener\">https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Warning_messages_(Delphi)<\/a><\/p>\n<p>\u00a0<\/p>\n\n\n\n<p><span style=\"color: #339966;\" data-dracula-inline-color=\"\"><strong>\ud83d\udca1 Dica:<\/strong><\/span><\/p>\n<p>A partir da vers\u00e3o 10.3 do Delphi, se voc\u00ea usar um custom attribute que n\u00e3o for conhecido pelo compilador (porque voc\u00ea o digitou incorretamente ou uma unidade estiver faltando na instru\u00e7\u00e3o uses), voc\u00ea ir\u00e1 receber um Warning:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"Warning: W1074 Unknown custom attribute\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #F6F6F4\">Warning: W1074 Unknown custom <\/span><span style=\"color: #F286C4\">attribute<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<p>\u00c9 recomendado transformar esse Warning em um erro, para que seja obrigat\u00f3rio a corre\u00e7\u00e3o, para isso insira:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$WARN UNKNOWN_CUSTOM_ATTRIBUTE ERROR}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #E7EE98\">{$WARN UNKNOWN_CUSTOM_ATTRIBUTE ERROR}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"REGION\"><\/span>REGION<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Controla a exibi\u00e7\u00e3o de regi\u00f5es recolh\u00edveis<\/li>\n<\/ul>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$REGION 'Minha regi\u00e3o'}\nprocedure ExibirMsgTeste;\nbegin\n  ShowMessage('Minha mensagem de teste');\nend;\n{$ENDREGION}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #E7EE98\">{$REGION &#39;Minha regi\u00e3o&#39;}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">procedure<\/span><span style=\"color: #F6F6F4\"> <\/span><span style=\"color: #62E884\">ExibirMsgTeste<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">begin<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  ShowMessage(<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #E7EE98\">Minha mensagem de teste<\/span><span style=\"color: #DEE492\">&#39;<\/span><span style=\"color: #F6F6F4\">);<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F286C4\">end<\/span><span style=\"color: #F6F6F4\">;<\/span><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$ENDREGION}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"ARQUIVOS_inc\"><\/span>ARQUIVOS .inc<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>Inclu\u00ed um arquivo .inc onde podem ser inseridas diversas diretivas de compila\u00e7\u00e3o. (normalmente declarado logo ap\u00f3s o nome da unit)<\/li>\n<\/ul>\n<p dir=\"auto\">Sintaxe:<br>&nbsp;&nbsp; {$I arquivo.inc} OU {$INCLUDE arquivo.inc};<\/p>\n<p dir=\"auto\">Exemplos:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$I C4D.inc}\n{$INCLUDE Includes\\arquivo_inc_teste.inc}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #E7EE98\">{$I C4D.inc}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$INCLUDE Includes\\arquivo_inc_teste.inc}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<p>O arquivo com nome &#8220;arquivo_inc_teste.inc&#8221; est\u00e1 dentro de um diret\u00f3rio com o nome &#8220;Includes&#8221;. E nesse arquivo pode-se colocar diversas diretivas de compila\u00e7\u00e3o como por exemplo:<\/p>\n\n\n\n<div class=\"wp-block-kevinbatdorf-code-block-pro cbp-has-line-numbers cbp-highlight-hover\" data-code-block-pro-font-family=\"Code-Pro-JetBrains-Mono\" style=\"font-size:.875rem;font-family:Code-Pro-JetBrains-Mono,ui-monospace,SFMono-Regular,Menlo,Monaco,Consolas,monospace;--cbp-line-number-color:#f6f6f4;--cbp-line-number-width:calc(1 * 0.6 * .875rem);--cbp-line-highlight-color:rgba(251, 251, 239, 0.2);line-height:1.25rem;--cbp-tab-width:2;tab-size:var(--cbp-tab-width, 2)\"><span role=\"button\" tabindex=\"0\" data-code=\"{$DEFINE DIRETIVA_TESTE}\n\n{$IF CompilerVersion &lt; 35.0)}\n  {$DEFINE DIRETIVA_TESTE_35}\n{$ENDIF}\" style=\"color:#f6f6f4;display:none\" aria-label=\"Copy\" class=\"code-block-pro-copy-button\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" style=\"width:24px;height:24px\" fill=\"none\" viewBox=\"0 0 24 24\" stroke=\"currentColor\" stroke-width=\"2\"><path class=\"with-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M4.5 12.75l6 6 9-13.5\"><\/path><path class=\"without-check\" stroke-linecap=\"round\" stroke-linejoin=\"round\" d=\"M16.5 8.25V6a2.25 2.25 0 00-2.25-2.25H6A2.25 2.25 0 003.75 6v8.25A2.25 2.25 0 006 16.5h2.25m8.25-8.25H18a2.25 2.25 0 012.25 2.25V18A2.25 2.25 0 0118 20.25h-7.5A2.25 2.25 0 018.25 18v-1.5m8.25-8.25h-6a2.25 2.25 0 00-2.25 2.25v6\"><\/path><\/svg><\/span><pre class=\"shiki dracula-soft\" style=\"background-color: #282A36\" tabindex=\"0\"><code><span class=\"line\"><span style=\"color: #E7EE98\">{$DEFINE DIRETIVA_TESTE}<\/span><\/span>\n<span class=\"line\"><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$IF CompilerVersion &lt; 35.0)}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #F6F6F4\">  <\/span><span style=\"color: #E7EE98\">{$DEFINE DIRETIVA_TESTE_35}<\/span><\/span>\n<span class=\"line\"><span style=\"color: #E7EE98\">{$ENDIF}<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"USANDO_O_IDE\"><\/span>USANDO O IDE<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li>\n<p dir=\"auto\">Voc\u00ea pode definir muitas das diretivas de compila\u00e7\u00e3o na caixa de di\u00e1logo da IDE em&nbsp;<strong>Project &gt; Options &gt; Delphi Compiler &gt; Conditional defines<\/strong>. Essas diretivas afetam todas as unidades sempre que seu c\u00f3digo-fonte \u00e9 recompilado.<\/p>\n<\/li>\n<li>\n<p dir=\"auto\">Se voc\u00ea estiver trabalhando no Editor de C\u00f3digo e quiser uma maneira r\u00e1pida de ver as diretivas de compila\u00e7\u00e3o em vigor, pressione&nbsp;<span style=\"background-color: #3366ff; --dracula-inline-bgcolor: #380070;\" data-dracula-inline-bgcolor=\"\"><kbd><strong>Ctrl + O + O<\/strong><\/kbd><\/span>. As configura\u00e7\u00f5es atuais das diretivas s\u00e3o inseridas em uma linha horizontal no topo do seu arquivo, junto com outras configura\u00e7\u00f5es atuais, como avisos do compilador (as configura\u00e7\u00f5es da diretiva $WARN). Essas listas s\u00e3o adicionadas ao in\u00edcio do seu arquivo de origem, a menos que voc\u00ea desfa\u00e7a (<span style=\"background-color: #3366ff;\" data-dracula-inline-bgcolor=\"\"><kbd><strong>Ctrl + Z<\/strong><\/kbd><\/span>) ou exclua manualmente a lista:&nbsp;<\/p>\n<\/li>\n<\/ul>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"385\" src=\"https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image-1024x385.png\" alt=\"\" class=\"wp-image-185\" srcset=\"https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image-1024x385.png 1024w, https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image-300x113.png 300w, https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image-768x289.png 768w, https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image-920x346.png 920w, https:\/\/code4delphi.com.br\/blog\/wp-content\/uploads\/2024\/03\/image.png 1109w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\"><span class=\"ez-toc-section\" id=\"%F0%9F%94%97_LINKS_UTEIS\"><\/span>\ud83d\udd17 LINKS \u00daTEIS<span class=\"ez-toc-section-end\"><\/span><\/h3>\n\n\n\n<ul dir=\"auto\">\n<li><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Delphi_compiler_directives\" target=\"_blank\" rel=\"nofollow noopener\">Diretivas de compila\u00e7\u00e3o Delphi<\/a><\/li>\n<li><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Delphi_Compiler_Directives_(List)_Index\" target=\"_blank\" rel=\"nofollow noopener\">Lista de diretivas de compila\u00e7\u00e3o<\/a><\/li>\n<li><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Conditional_compilation_(Delphi)\" target=\"_blank\" rel=\"nofollow noopener\">Conditional compilation<\/a><\/li>\n<li><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Compiler_Versions\" target=\"_blank\" rel=\"nofollow noopener\">Lista de Compiler Versions<\/a><\/li>\n<li><a href=\"https:\/\/docwiki.embarcadero.com\/RADStudio\/Athens\/en\/Warning_messages_(Delphi)\" target=\"_blank\" rel=\"nofollow noopener\">Lista de Warning Messages<\/a><\/li>\n<\/ul>\n\n\n\n<p>\u00a0<\/p>\n<p>N\u00e3o esque\u00e7a de <strong>deixar seu coment\u00e1rio<\/strong> com d\u00favidas, dicas ou sugest\u00f5es.<\/p>\n<p>Abra\u00e7os!<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Ol\u00e1, leitores! Neste artigo iremos abordar o uso de diretivas de compila\u00e7\u00e3o com Delphi e tamb\u00e9m&#46;&#46;&#46;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[6],"tags":[31,24,33,23,27,32,35,30,25,26,34,29,28,36],"class_list":["post-57","post","type-post","status-publish","format-standard","hentry","category-recursos-da-linguagem","tag-arquivos-inc","tag-compilerversion","tag-define","tag-diretivas-de-compilacao","tag-hints","tag-ide","tag-ifdef","tag-region","tag-rtlversion","tag-scoped-enums","tag-undef","tag-warning-messages","tag-warnings","tag-writeableconst"],"_links":{"self":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/57","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/comments?post=57"}],"version-history":[{"count":57,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/57\/revisions"}],"predecessor-version":[{"id":853,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/57\/revisions\/853"}],"wp:attachment":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/media?parent=57"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/categories?post=57"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/tags?post=57"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}