比如试用版中不编译正式版中的部分代码,或者加上日期限制。怎么才能达到这样的效果呢?而且需要越方便越好。用两套代码处理太麻烦,而且不容易统一,请高手指点。

解决方案 »

  1.   

    就用编译条件啊 你搜索一下  这个很简单的
    比如  试用版条件为debug  正式为Release
    {$ifdefine Release}
    {$endif} 
      

  2.   

    不会用还好说,没听说过就太离谱了你从来不看源码的吗,delphi源码和那些第三方组件源码里到处都是预编译指令和inc配置文件
      

  3.   

    例子:var
      Form1: TForm1;implementation{$R *.dfm}//目前是试用版,若要正式版时,编译前将下一句左边的"//" 去掉即可
    //{$DEFINE Release}procedure TForm1.Button1Click(Sender: TObject);
    begin
    {$IFDEF Release}
      showmessage('正式版');
    {$ELSE}
      showmessage('试用版');
    {$ENDIF}
    end;end.