如何不执行代码中部分语句? 比如试用版中不编译正式版中的部分代码,或者加上日期限制。怎么才能达到这样的效果呢?而且需要越方便越好。用两套代码处理太麻烦,而且不容易统一,请高手指点。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 就用编译条件啊 你搜索一下 这个很简单的比如 试用版条件为debug 正式为Release{$ifdefine Release}{$endif} 不会用还好说,没听说过就太离谱了你从来不看源码的吗,delphi源码和那些第三方组件源码里到处都是预编译指令和inc配置文件 例子:var Form1: TForm1;implementation{$R *.dfm}//目前是试用版,若要正式版时,编译前将下一句左边的"//" 去掉即可//{$DEFINE Release}procedure TForm1.Button1Click(Sender: TObject);begin{$IFDEF Release} showmessage('正式版');{$ELSE} showmessage('试用版');{$ENDIF}end;end. 关于jni.pas的使用 请教如何在 WebBrowser 中,屏蔽网页中的 iframe 的脚本错误 各位Delphi专家或高手请教一下你们,请帮帮忙... 如何处理大文件的COPY问题! Ihtmldocument2的问题? 关于用ado控制sql server2000数据库的问题。 急,有谁会用DBGridEH控件,请进来指导一下。谢谢了 如何在软件creat是设置密码输入窗体 请广州的网友帮一下忙 数据库问题,高手,帮帮忙! 有关三层结构midas,网络突然断开,在TSocketConnection中如何知道 TDBedit 的输入框的默认值在选择后默认值消失。。。。。
比如 试用版条件为debug 正式为Release
{$ifdefine Release}
{$endif}
Form1: TForm1;implementation{$R *.dfm}//目前是试用版,若要正式版时,编译前将下一句左边的"//" 去掉即可
//{$DEFINE Release}procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF Release}
showmessage('正式版');
{$ELSE}
showmessage('试用版');
{$ENDIF}
end;end.