procedure TForm1.btn1Click(Sender: TObject);
begin
{$Define ss} (* 用于定义一个条件符号,一旦定义,条件符号就为真 *)
{$IFDEF ss} (* 对条件符号进行判断,为真则编译源文件 *)
ShowMessage('ss Has defined!!');
Text := 'ss Has defined!!';
Form1.Color := clLime;
{$ELSE} (* 与$IFDEF配合使用,如果$IFDEF条件为假,则只对源文件$ELSE后一小部分进行编译 *)
ShowMessage('ss Has not defined!!');
Text := 'ss Has NOT defined!!'
Form1.Color := clRed;
{$ENDIF} (* 结束一个以$IF开始的条件段 *)
{$UNDEF ss} (* 撤消以前的条件符号定义 *)
{$IFDEF ss} (* 因为已经撤销ss的定义 *)
ShowMessage('ss Has defined!!');
Text := 'ss Has defined!!';
Form1.Color := clLime;
{$ELSE}
ShowMessage('ss Has not defined!!'); (* 因此,将执行以下语句 *)
Text := 'ss Has NOT defined!!';
Form1.Color := clRed;
{$ENDIF}
end;
转载于:https://www.cnblogs.com/dabiao/archive/2011/08/12/2136783.html
本文通过一个Delphi程序示例介绍了如何使用条件编译指令来控制代码的编译过程。具体展示了如何定义、判断及撤销条件符号,进而根据不同的情况编译不同的代码路径。
1100

被折叠的 条评论
为什么被折叠?



