求一简单的列子,主程序调用一个unit单元里面的一个函数,unit单元里面的函数应该如何写

Question

求一简单的列子,主程序调用一个unit单元里面的一个函数,unit单元里面的函数应该如何写新建一个工程,然后再添加一个unit单元,如何在unit里面写一个函数,然后再主程序中调用,

Answer 1

应该是先编写一个单元Unit,在其中编写你需要的函数,然后再将此单元加到你的应用程序中,再调用那个函数!

Answer 2

Unit2.pas
unit Unit2;interfaceuses Dialogs;procedure Test();implementationprocedure Test();
begin
  ShowMessage('aaaaaaa');
end;end.
Unit1.pas
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
  test();
end;end.