关于写类

                            
为什么这个类,我想在构造函数里初始话年龄16,但是会出错,总之我想对类里面的变量赋值都不行。为什么?请赐教。   
  主要代码如下:  
  type  
  Tman=class  
  private  
      name:string;  
      age:integer;  
  public  
    constructor   create;  
    procdure   setname(n:string);  
    ..  
    ..  
   
   
  constructor   Tman.create;  
  begin  
    inherited;  
    age:=16;  
  end;  
  procdure   setname(n:string);  
  begin  
    name:=n;  
  end;  
   
   
   
   
   
   
   
   
   
 

查看回复