初学delphi
delphi中有没有像VB中那样的“模块”，就是所有窗体可以公用模块中的一些变量和过程！
或者有没有类似的功能！
问题点数：20、回复次数：4Top
1 楼wlbfeihu（下辈子不写程序）回复于 2005-06-14 11:24:42 得分 4
可以单独建立一个Unit啊
然后别的模块引用它
很方便的
Top
2 楼qxh0724（623827）回复于 2005-06-14 11:26:20 得分 0
能给个简单例子吗？Top
3 楼wlbfeihu（下辈子不写程序）回复于 2005-06-14 11:39:32 得分 8
{稿件备份公用函数
}
unit CommonFunction;
interface
//引用单元
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
//常量定义
//结构体定义
Type
BackFilter=Record
Txt_Content:String;
lRaw:Boolean;
lIssue:Boolean;
lDept:Boolean;
lPage:Boolean;
lPerson:Boolean;
lTrash:Boolean;
Dat_Begin:Tdate;
Dat_End:Tdate;
end;
PBackFilter=^BackFilter;
//函数定义
Function InitBackFilter:BackFilter;//初始化Backfilter结构体
Function GetFileName(FilePath:String):String;//从一绝对路径中得到文件名
//代码实现
implementation
//初始化结构体
Function InitBackFilter:BackFilter;
begin
Result.Txt_Content:='';
Result.Dat_Begin:=Date();
Result.Dat_End:=date();
Result.lRaw:=False;
Result.lIssue:=False;
Result.lDept:=False;
Result.lPage:=False;
Result.lPerson:=False;
Result.lTrash:=False;
end;
//从一绝对路径中得到文件名
Function GetFileName(FilePath:String):String;
begin
if FilePath<>'' then
begin
while Pos('\',FilePath)>0 do
FilePath:=Copy(FilePath,Pos('\',FilePath)+1,Length(FilePath));
Result:=FilePath;
end
else
Result:='';
end;
end.Top
4 楼wlbfeihu（下辈子不写程序）回复于 2005-06-14 11:41:23 得分 8
建一个Unit，不是form
别的单元引用过去就行Top
