使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
2010-07-31 11:00
337 查看
使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数
这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv
--------------------------------------------------------------------------------
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 路径} 指令完成的.
这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv
--------------------------------------------------------------------------------
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} 指令管理和调用自定义函数
- NSIS使用System::Call调用自定义dll中的导出函数
- 使用call_user_func调用自定义函数
- 使用ODAC调用ORACLE的自定义函数和存储过程
- VC++6.0环境下,使用传引用方式调用自定义的swap函数来达到两数交换的目的
- 从 SQL 进行操作系统调用,DB2自定义函数的使用
- 使用HIBERNATE调用自定义函数
- oracle 使用rownum减少自定义函数的调用
- Oracle不支持在select语句中调用自定义函数时使用自定义类型作参数?
- 列出一个工作簿中所有已使用的自定义函数
- C#工具---使用Signature Tool自动生成P/Invoke调用Windows API的C#函数声明
- 使用自定义的Activity栈来管理android的Activity
- MySQL中文汉字转拼音的自定义函数和使用实例(首字的首字母)
- call 方法在使用一个指定的this值和若干个指定的参数值的前提下调用某个函数或方法.
- MySQL中文汉字转拼音的自定义函数和使用实例(首字的首字母)
- C/C++:函数的编译方式与调用约定以及extern “C”的使用
- android中打印函数调用栈、内存使用、屏幕分辨率