关于类的

Question

我定义了一个新类
unit Unit_Test;interfaceuses
  Classes, ComCtrls, StdCtrls, SysUtils;type
  TTest = class
  private
    procedure 1; 
    procedure 2;
  public
    procedure 3;
  end;......
在主窗体里引用
TTT: TTest;...
TTT.Create;
create的时候报错

Answer 1

//没有错呀 ; 函数过程名要符合标识符的规定type
  TTest = class
  private
    procedure P1;
    procedure P2;
  public
    procedure P3;
  end;
var
  Form1: TForm1 ;
  tt : TTest ;implementation{$R *.dfm}{TTest}procedure TTest.P1 ;
begin
  ShowMessage('P1') ;
end ;procedure TTest.P2 ;
begin
  ShowMessage('P2') ;
end ;procedure TTest.P3 ;
begin
  ShowMessage('P3') ;
end ;procedure TForm1.FormCreate(Sender: TObject);
begin
  tt := TTest.Create ;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  tt.Free ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  tt.P1 ;
end;

Answer 2

TTT.Create;
改为
TTT:=TTest.Create;