function 是否能传递自定义类参数

                            
type      
  Tman=class  
  private  
    fid:string;  
    fname:string;  
    procedure   setid(id:string);  
    procedure   setname(name:string);  
  public    
  publish  
      proprty   id:string   read   fid   write   setid;  
      proprty   id:string   read   fid   write   setname;  
  end;  
   
   
  现在想实现这应的function;  
  function   modiman(man:Tman):Tman;  
  begin  
  man.id:='0001';  
  man.name:='anhui';  
  result:man;  
  end;  
 

查看回复