声明两个过程放在代码的什么地方高手们

Question

你是说放前面还是后面吗，我一直是另建一个PAS文件，所有的过程都可以放在那里。

Answer 1

unit UntTrans;interfaceuses
  xmldom, XMLIntf, msxmldom, XMLDoc, Dialogs;function Trans102(mXMLNode:IXMLNode):IXMLNode;
function Trans103(mXMLNode:IXMLNode):IXMLNode;implementationfunction Trans102(mXMLNode:IXMLNode):IXMLNode;
begin
end;function Trans103(mXMLNode:IXMLNode):IXMLNode;
beginend;end.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure test1;
begin
  showmessage('test1');
end;
procedure test2;
begin
  showmessage('test2');
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  test1;
  test2;
end;end.

Answer 3

不过，不同的地方有不同的应用范围
======
interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ToolWin, ComCtrls;type
  TjssmForm = class(TForm)
    ToolBar1: TToolBar;
    Memo1: TMemo;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }//嘻嘻，只有你自己可以用（本模块）
  public
    { Public declarations }//嘻嘻，其它窗体也可以用；
  end;var
  jssmForm: TjssmForm;
  proc....//这儿，嘻嘻，完全的大公啊，不用引用窗体名，只要uses就可以；
implementationProcedure..
var
  I : Integer;
  Procedure...//嘻嘻，这儿的应用范围最最小，嘻嘻
  var
    ...
begin
...
end;