如何不执行代码中部分语句?
比如试用版中不编译正式版中的部分代码,或者加上日期限制。怎么才能达到这样的效果呢?而且需要越方便越好。用两套代码处理太麻烦,而且不容易统一,请高手指点。
[解决办法]
就用编译条件啊 你搜索一下 这个很简单的
比如 试用版条件为debug 正式为Release
{$ifdefine Release}
{$endif}
[解决办法]
例子:
var
Form1: TForm1;
implementation
{$R *.dfm}
//目前是试用版,若要正式版时,编译前将下一句左边的"//" 去掉即可
//{$DEFINE Release}
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF Release}
showmessage('正式版');
{$ELSE}
showmessage('试用版');
{$ENDIF}
end;
end.