初学delphi

Question

delphi中有没有像VB中那样的“模块”，就是所有窗体可以公用模块中的一些变量和过程！
或者有没有类似的功能！

Answer 1

可以单独建立一个Unit啊
然后别的模块引用它
很方便的

Answer 2

{稿件备份公用函数}
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.

Answer 3

建一个Unit，不是form
别的单元引用过去就行