5,386
社区成员
发帖
与我相关
我的任务
分享我想新建一个不带表单的公共单元存储公共变量和函数，但interface到imtepmnet之间不会写请指教！谢谢！！！最好给个例子！！
我想新建一个不带表单的公共单元存储公共变量和函数，但interface到imtepmnet之间不会写请指教！谢谢！！！最好给个例子！！
...全文
请发表友善的回复…
发表回复
cjfzy 2003-10-21
- 打赏
- 举报
interface
uses Forms, Controls, SysUtils, ADODB, Classes, Dialogs;
//这里写函数和过程
function Longest(sender:TObject;Caption:String;BitNum:integer):Boolean;
procedure ……
var//这里定义变量
str:String;//全局变量
……
implementation
function Longest(sender:TObject;Caption:String;BitNum:integer):Boolean;
begin
……//你的代码
end;
uses Forms, Controls, SysUtils, ADODB, Classes, Dialogs;
//这里写函数和过程
function Longest(sender:TObject;Caption:String;BitNum:integer):Boolean;
procedure ……
var//这里定义变量
str:String;//全局变量
……
implementation
function Longest(sender:TObject;Caption:String;BitNum:integer):Boolean;
begin
……//你的代码
end;
