1个类的调用

 1 unit Unit1;
 2 interface
 3 uses
 4   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 5   Dialogs, StdCtrls;
 6 type
 7   TForm1 = class(TForm)
 8     Button1: TButton;
 9     procedure Button1Click(Sender: TObject);
10   private
11     { Private declarations }
12     procedure subroutine;
13   public
14     { Public declarations }
15   end;
16 var
17   Form1: TForm1;
18 implementation
19 
20 {$R *.dfm}
21 procedure Tform1.subroutine;
22 begin
23 showmessage('准备退出');
24 close;
25 end;
26 procedure TForm1.Button1Click(Sender: TObject);
27 begin
28 subroutine;
29 end;
30 end.
31