//(* 本文出处:南山古桃(nsgtao)的百度空间:http://hi.baidu.com/nsgtao/ *)
预编译
{$DEFINE TEST}
{$IFDEF TEST}
CODE........
{$ENDIF}
需要在调试的时候,
启用某些编译选项,启动莫些代码。
而在发给用户的时候,
启用另外一些编译选项,不使用某些代码。
有办法保存两个编译配置,方便的切换吗?
Delphi里如果想要设置某些标准只运行一部分代码,可以通过编译开关
{$IFDEF 开关值}
代码
{ENDIF}
这样在编译的时候,Project的options的condionals页面里输入开关值,编译出来的代码就有这一部分,否则没有
不需要定义的。。。用delphi内置的{$IFDEF DEBUG}
就行了,调试时,在project manager中设置项目为debug
正式发布了再改成release
举例如下:
//{$define test} //有此句则运行ShowMessage('debug');注释后则不运行
procedure TForm1.Button1Click(Sender: TObject);
begin
{$ifdef test}
ShowMessage('debug');
{$endif}
button1.Caption := '南山';
end;