{$ifdef SEAS_SERVICE}
**
{$else}
**
{$endif}
上面的是什么意思啊?在什么地方用,有什么用,SEAS_SERVICE又是什么?在什么地方定义的?
**
{$else}
**
{$endif}
上面的是什么意思啊?在什么地方用,有什么用,SEAS_SERVICE又是什么?在什么地方定义的?
解决方案 »
- tms workflow studio 如何应用在自己开发的程序??
- 收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 使用SimpleDataSet控件向数据库提交SQL语句前需要先清空原有的SQL语句?[
- 在WriteFile中PChar类型传递字符数组
- 一个从数据库里读取数据显示的问题。
- Access中以文件流方式存储的RTF文件如何导出为HTML文件
- 求救(在线等)
- 各位大哥,帮忙看看下面的代码
- 有没有可以得到cpu序列号的函数
- 类型判断的问题!!!
- win2000下写的程序到98下字体为什么会变?
- 请教各位大虾连表更新问题.
- 帮我看看我的代码,是关于动态调用DLL中的过程的。
{.$DEFINE SEAS_DB2}
这两句分别代表什么意思,是不是{$DEFINE SEAS_ORA}起晓,{.$DEFINE SEAS_DB2}(有了一个.)无效呢?
{$DEFINE SEAS_ORA}
{.$DEFINE SEAS_DB2}
{.$DEFINE SEAS_SERVICE} --2
{$ifdef SEAS_SERVICE}
--a
{$else}
--b
{$endif}是条件编译,--1表示,这个SEAS_SERVICE开关打开,就编译--a部分 ,加了个点或者其他任何东西如--2,就是delphi的注释了,也就是这个开关没定义,就编译--b进去;
{.$DEFINE SEAS_DB2}
这两句分别代表什么意思,是不是{$DEFINE SEAS_ORA}起晓,{.$DEFINE SEAS_DB2}(有了一个.)无效呢?
==============================
在 Project -> Options -> Directory/Conditionals 中定义的。
{$DEFINE SEAS_ORA}很可能是系统用ORACLE时的条件编译选项,
{.$DEFINE SEAS_DB2}是DB2时用的,如切换DB2数据库时在
Project -> Options -> Directory/Conditionals选择使用SEAS_DB2,这样系统编译时按适合DB2
的程序编译。
在Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相当不错的用途。
一.指令介绍:
1. DEFINE指令:
格式:{$DEFINE 名称}
说明 :用于定义一个在当前单元有效的符号(Symbol)。定义了
之后可以使用IF DEF和IFNDEF指令来判断该符号是否存在。
2. UNDEF指令:
格式:{$UNDEF 名称}
说明:用于取消一个在当前单元已经定义的符号(Symbol)。该指令和DEFINE
配合使用。
3. IFDEF指令:
格式:{$IFDEF 名称}
说明:如果该指令后的名称已经定义,则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
4. IFNDEF指令:
格式:{$IFNDEF 名称}
说明:如果该指令后的名称没有定义,则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
5. IFOPT指令:
格式:{$IFOPT 开关}
说明:如果该指令后的开关已经设立,则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
举例:{$IFOPT R+}
Writeln('编译时打开范围检查开关');
{$ENDIF}
6. ELSE指令:
格式:{$ELSE}
说明:通过判断前缀Ifxxx的条件式来确定该指令到{$ENDIF}之间的代码段是否应该被编译或者忽略掉。
7. ENDIF指令:
格式:{$ENDIF}
说明:和Ifxxx配合,指明条件预编译段源代码段的结束位置。
二.范例:
编写例子,通过预先定义不同的编译符号,进行不用代码段的编译工作。
1. 新建一个Delphi项目,在Unit1单元的窗体上添加一个Button按钮。
2. 编写程序如下:
unit Unit1;interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
a : String;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$DEFINE AAA} // 定义行。procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Other';
{$IFDEF AAA}
a := 'AAA';
{$ENDIF}
{$IFDEF BBB}
a := 'BBB';
{$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := a;
end;end.
{注:粗体字部分为输入的代码}
3. 编译后运行,按下Button,则看到窗体标题栏显示“AAA”。程序编译了a := ’AAA’的语句。
4. 改变定义行的程序段:
当改为{$DEFINE BBB}时,再次编译运行,则看到窗体标题栏显示“BBB”。程序编译了a := ’BBB’的语句。当取消定义行或改为{$DEFINE NOTHING}或其他名称时,再次编译运行,则看到窗体标题栏显示“Other”。程序只编译了a := ’Other’的语句。三.如何快速的制作和更改版本:
使用预编译指令,在制作同一个程序的多个版本时,只需找出各版本中有区别的单元,依次定义统一的版本符号(Symbol),然后在程序段中加入条件预编译指令,就可以在实际编译中取舍编译不同的程序部分,这样对于程序的规范性(定义统一的版本符号)和保密性(不同的版本编译不同的程序部分)有很好的作用。然而,由于该类预编译指令只能作用于当前单元,所以不便之处在于不能在一个公共单元定义一次版本符号,而必须在各单元中定义统一版本符号才行,故此,在更换版本时,需要确定所有的版本符号都已改变,这样才能保证各版本的正确性,对此,可以使用Delphi IDE的“Find in Files…”(多个文件中查找字符串)的功能,找出所有定义版本符号的文件和位置,然后依次更改,保证所有位置已经改正。