如果需要让别的单元可以调用,可以新建一个公共单元并在interface部分,var声明如下。 unit Unit_common; interface uses function mytest(i : integer): string; implementation //如有函数的私有变量可在此声明 begin 调用此函数时可在调用的单元中的user(在interface或implementation部分效果一样)部分增加此单元的单元名,例如:
unit login; interface uses type ....................
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char); var implementation
{$R *.dfm}
procedure Tfrm_login.btn_okClick(Sender: TObject); a:string; begin a:=mytest(5); ....... end;
分类:
Delphi |
|