使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
2014-07-28 18:10
281 查看
这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv
我们可以把其中的自定义函数(也可以是其他代码)剪切保存在一个文本文件中(譬如是: C:\DelphiFun\MyFun.inc);
然后在原来代码的位置用 {$INCLUDE C:\DelphiFun\MyFun.inc} 或 {$I C:\DelphiFun\MyFun.inc} 再引入即可(可以使用相对路径).
下面是使用后的代码:
另外: 引入 C 语言的 obj 文件是用 {$L 路径} 指令完成的.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //譬如下面四个自定义函数 ***************************** function MyAdd(const a,b: Integer): Integer; begin Result := a + b; end; function MyDec(const a,b: Integer): Integer; begin Result := a - b; end; function MyMul(const a,b: Integer): Integer; begin Result := a * b; end; function MyDiv(const a,b: Integer): Integer; begin Result := a div b; end; //**************************************************** //调用测试 procedure TForm1.FormCreate(Sender: TObject); const x = 8; y = 2; begin ShowMessageFmt('%d,%d,%d,%d',[MyAdd(x,y), MyDec(x,y), MyMul(x,y), MyDiv(x,y)]); {显示结果: 10,6,16,4} end; end.
我们可以把其中的自定义函数(也可以是其他代码)剪切保存在一个文本文件中(譬如是: C:\DelphiFun\MyFun.inc);
然后在原来代码的位置用 {$INCLUDE C:\DelphiFun\MyFun.inc} 或 {$I C:\DelphiFun\MyFun.inc} 再引入即可(可以使用相对路径).
下面是使用后的代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {$I C:\DelphiFun\MyFun.inc} //调用测试 procedure TForm1.FormCreate(Sender: TObject); const x = 8; y = 2; begin ShowMessageFmt('%d,%d,%d,%d',[MyAdd(x,y), MyDec(x,y), MyMul(x,y), MyDiv(x,y)]); {显示结果: 10,6,16,4} end; end.
另外: 引入 C 语言的 obj 文件是用 {$L 路径} 指令完成的.
相关文章推荐
- 使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
- 使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
- 使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
- 使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
- 使用Direction的include指令和errorPage的一点心得
- Spring AOP进行日志记录,管理 (使用Spring的拦截器功能获取对action中每个方法的调用情况,在方法调用前和调用后记录相关日志。)
- 【Unity Shaders】使用CgInclude让你的Shader模块化——使用#define指令创建Shader
- Spring AOP进行日志记录,管理 (使用Spring的拦截器功能获取对action中每个方法的调用情况,在方法调用前和调用后记录相关日志。)
- Eclipse中使用JSP的Include指令的格式问题
- android使用include调用内部组件的方法
- page指令,include指令script的使用
- 使用文件包含指令include
- Java include指令 使用示例
- 在基类构造函数中调用Session时出现:Page 指令中将 enableSessionState 设置为 true 时,才能使用会话状态
- C和C++中include指令的使用
- Android开发教程:使用include调用布局
- 页面调用问题:JSP指令标签include
- C和C++中include指令的使用
- linux常用指令介绍_软件包管理_VIM编辑器的使用_用户和组账户管理_文件权限管理
- Spring AOP进行日志记录,管理 (使用Spring的拦截器功能获取对action中每个方法的调用情况,在方法调用前