指定 Delphi 的編譯條件

內容來源：http://www.wretch.cc/blog/solnone&article_id=17350876

在 Project -> Options -> Directories / Conditionals 中有 Conditional defines 可以設定 編譯條件，有多個條件時以分號分隔

Ex：在 Form Create 事件中加入
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF DEBUG}
ShowMessage('DEBUG Conditional');
{$ELSE}
ShowMessage('Normal');
{$ENDIF}
end;

執行程式後會顯示 'Normal'
在 Conditional defines 入框中輸入 DEBUG 按 ok 後重 build
Project -> Build Project1
再次執行程式後會顯示 'DEBUG Conditional'