프로그램을 분석중인데... 아래 컴파일 지시어에 대해서 이해가 안가서 그러는데.... 님들 제발 짬좀 내서 가르켜주세요. ^^


unit Unit1;
interface
{$DEFINE DEBUG}
{$DEFINE SheriffOn}
{$DEFINE SCM_Dynamic}

implementation

{$R *.DFM}
uses {$IFDEF 0}{$IFDEF SheriffOn}, uSCMLib {$ENDIF}{$ENDIF};

procedure TfIGW.FormCreate(Sender: TObject);
begin
{$IFDEF 0}
    I.Sheriff.DLL  := ReadString('Sheriff','DLL','.SCM.dll');
{$ENDIF}

{$IFDEF 0}
  {$IFDEF SheriffOn}
    {$IFDEF SCM_Dynamic}
    if FileExists(I.Sheriff.DLL) then
      I.Sheriff.Load := LoadSCM(I.Sheriff.DLL);
    {$ENDIF}
  {$ENDIF}
    if I.Sheriff.Load then
      lblSCM.Caption := 'SCM Load!'
    else
      lblSCM.Caption := 'SCM Fail!';
{$ENDIF}
end;

procedure TfIGW.FormDestroy(Sender: TObject);
begin
{$IFDEF 0}
  {$IFDEF SheriffOn}
    {$IFDEF SCM_Dynamic}
    if I.Sheriff.Load then
      FreeSCM;
    {$ENDIF}
  {$ENDIF}
{$ENDIF}
end;

procedure TfIGW.TimerMainTimer(Sender: TObject);
begin
  {$IFDEF DEBUG}
  if not Q.IsPause then
  begin
    IGW_QuLogEnd;
    I.QueueLog.sFile := IGW_QuLogStart;
    IGW_QuLogWrite(format('%s,[%s]',['M',' 날짜가 바뀌었어요. ']));
  end;
  {$ENDIF}
end;