delphi中{$DEFINE}的理解

来源：互联网发布：家教网知乎编辑：程序博客网时间：2024/06/03 10:33

// 當你開發及DEBUG時，將REMARK(//) 移除
// {$DEFINE SPECIFIC_USER }
const TEST_USERID = 'sfc';
const TEST_USERPASSWORD = 'sfccfs';
.......

這里，{$DEFINE SPECIFIC_USER }跟
const TEST_USERID = 'sfc';
const TEST_USERPASSWORD = 'sfccfs';
.......
沒有關系，
{$DEFINE SPECIFIC_USER }只是表示定義一個編譯開關。
下面
ParamByName('USERID').AsString := ParamStr(3);
{$IFDEF SPECIFIC_USER }
ParamByName('USERID').AsString := TEST_USERID;
ParamByName('PASSWORD').AsString := 'xxx';
{$ENDIF}
如果SPECIFIC_USER 有，即申明了{$DEFINE SPECIFIC_USER }，
則會執行
ParamByName('USERID').AsString := TEST_USERID;
ParamByName('PASSWORD').AsString := 'xxx';
如果沒有申明，則不會執行
ParamByName('USERID').AsString := TEST_USERID;
ParamByName('PASSWORD').AsString := 'xxx';
它與時候有const TEST_USERID = 'sfc';無關.
{IFDEF XXX}
{ENDIF}
必須成對出現