如何调用别一个单元的过程呀？(20分)

我想把常用的过程序放一个共享单元里。。

然后在另一个单元里调用。。应该如何做呀？

假设你在unit1中有一个函数in_one要在unit2中使用，
首先，你要在unit1中的interface中声明函数in_one,并在implements部分实现，
然后在unit2的interface或implements部分的uses子句部分引用unit2即　uses unit2;
以后需要使用in_one时直接调用就可了。

先用 uses 引入另一个单元中的声明，
然后就可以用了。

我说的是过程。。不是函数

也可以吧？！

给你个例子
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure myP();
end;

var
Form1: TForm1;



implementation

uses Unit2;

{$R *.dfm}
procedure tform1.myP();
begin
showmessage('ok');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

end.


unit Unit2;

interface

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

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.myP;
end;

end.

过程与函数？？？？？？？？？

接受答案了.