我如何在另一个unit里面写一个函数,然后use这个unit就可以使用这个函数了?(100分)

  • 主题发起人 主题发起人 Mali
  • 开始时间 开始时间
M

Mali

Unregistered / Unconfirmed
GUEST, unregistred user!
就好像我use dialogs就可以使用ShowMessage函数了。
这个unit的格式应该是怎么样的?
unit U_Functions;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;


implementation


uses U_Main, U_Dm;


procedure BackUpDB;
begin
...
ShowMessage('备份成功');
end;

end.

为什么我在U_Main里面use U_Functions以后还不能直接使用这个BackUpDB?
应该怎么写?
 
要申明一下子嘛。

unit U_Functions;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
procedure BackUpDB; //其他unit在implementation前面找函数说明。

implementation


uses U_Main, U_Dm;


procedure BackUpDB;
begin
...
ShowMessage('备份成功');
end;

end.

 
BackUpDB定义为public。
 
呵呵,gydldfw说的是类方法里面才有public,private之分那,我只是简单的写个公共函数单元,没想到越简单越犯低级错误。[:)]
惭愧,发分。
 
后退
顶部