怎樣寫一個公用的,沒有form 的unit?

Question

unit PublicFunc;interfaceuses IniFiles, SysUtils, Oracle;procedure InitMyApp();
procedure GetSetting();implementationuses GlobalVar, SetPara, StatusView, MyDataModule;//初始化程序：从ini文件中读出设置
procedure InitMyApp();
begin
end;//other function or procedure ....end.

Answer 1

直接在ide里有嘛，new——》unit
其他的找个别的单元看看就好了

Answer 2

在turbo pascal 6.0 里就可以，在delphi 也可以了

Answer 3

unit uPublic;interfaceuses
  Windows, Messages, SysUtils;  //---------->根据需要加上procedure proceName;  //-------------->声明implementationprocedure proceName;
begin
  //---------------->函数、过程内容
end;end.

Answer 4

菜单file|new|unit，就可以找到你要的

Answer 5

工具“新建”，选Unitunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes;function Add(X, Y: Extended): Extended;implementationfunction Add(X, Y: Extended): Extended;
begin
  Result := X + Y;
end;end.