新建模块的格式 - 在线等

Question

自定义的函数，不想写在Form1的pas文件里，所以新建了一个Unit，格式如下
unit Unit2;interfaceimplementationend.请问怎样定义过程和函数，格式怎么写？
新手入门。不胜感激！^_^

Answer 1

在
interfaceimplementation之间定义函数，然后在
implementationend.写函数体

Answer 2

在Unit里面，怎样引用主窗口Form1的控件呢？比如，我要设置主窗体的Caption

Answer 3

自己看Form1的代码，仿照着做

Answer 4

Unit2的内容unit Unit2;interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;procedure SetFormCaption(aForm: TForm; aCaption: string);implementationprocedure SetFormCaption(aForm: TForm; aCaption: string);
begin
  aForm.Caption := aCaption;
end;end.

Answer 5

Unit1来调用unit Unit1;interfaceuses
  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 }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  SetFormCaption(Self, '窗口标题');
end;end.

Answer 6

Unit1如何引用Unit2:
首先选中Unit1，然后选择'File'菜单栏中的'Use Unit'，选择其中的'Unit2'，再点OK就可以了