奇怪的类

Question

unit PublicUnit;interface
   type
      child=class
         name:string;
         age:integer;
         sex:string;
         function Getage(n:string):integer;
   end;
implementation
    function child.Getage(n:string):integer;
       begin
          getage:=age;
       end;
end.procedure TForm1.Button1Click(Sender: TObject);
   var
      child1:child;
begin
   child1.name:='childname';
   showmessage(child1.name);
end;end.

Answer 1

 child1:=Child.Create ;  // 你没有创建实例，
 child1.name:='childname';
 showmessage(child1.name);