L liurui525 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-10 #1 {$IFDEF CLASS_TRACKING} {$ELSE} {$ENDIF} 像这些都是什么意思?详细点!谢谢,新手多多指教!!
Y ysp娃娃 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-10 #3 Delphi的编译指令的用法 如果已经定义了CLASS_TRACKING 就编译 $IFDEF CLASS_TRACKING}与{$ELSE}之间的代码 否则编译$ELSE}与{$ENDIF}之间的代码 给你个例子 implementation {$DEFINE CLASS_TRACKING} {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin {$IFDEF CLASS_TRACKING} caption:='已经定义了CLASS_TRACKING' ; {$ELSE} Caption:='没有定义CLASS_TRACKING' ; {$ENDIF} end; 然后试试取消定义 看看结果 {$UNDEF CLASS_TRACKING}
Delphi的编译指令的用法 如果已经定义了CLASS_TRACKING 就编译 $IFDEF CLASS_TRACKING}与{$ELSE}之间的代码 否则编译$ELSE}与{$ENDIF}之间的代码 给你个例子 implementation {$DEFINE CLASS_TRACKING} {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin {$IFDEF CLASS_TRACKING} caption:='已经定义了CLASS_TRACKING' ; {$ELSE} Caption:='没有定义CLASS_TRACKING' ; {$ENDIF} end; 然后试试取消定义 看看结果 {$UNDEF CLASS_TRACKING}