什么叫类的实例化,如何实例化
实例化了就和组件差不多了吗

解决方案 »

  1.   

    var
      mStream:TMemory;
    begin
      mStream:= TMemory.Create;//实例化
    end;
      

  2.   

    type
      TDate   =   class     //定义一个类
        Mouth,day,Year:Integer;
        procedure  SetValue(m,d,y:Integer);
        function   LeapYear:Boolean;
      end;procedure TDate.SetValue(m,d,y):Integer;
    begin
      Mouth := m;
      Day := d;
      Year := y;
    end;function TDate.LeapYear:Boolean;
      begin
      if (Year mod 4<>0)   then
        LeapYear := False
      else if (Year mod 100 <> 0)
        LeapYear := True
      else if (Year mod 400 <> 0)
        LeapYear := False
      else
       LeapYear := True;
      end;
        //实现了这些定义之后,就可以这样调用它们:var
      ADay:TDate;
    begin
      //建立一个对象 ,类实例化
      ADay := TDate.create;
      //使用之
      ADay.SetValue(1,1,2000);
      if ADay.LeapYear   then
        ShowMessage('闰年:'   +   Inttostr(ADay.year));
      //释放对象
      ADay.free;
    end;
      

  3.   

    var 
      adoquery_1:Tadoquery; 
    begin 
      adoquery_1:= Tadoquery.Create(nil);//实例化
       
    end;
    //月亮 : 问下 动态生成的 adoquery_1 的 属性 (active .... ) 是不是和在面版上拖下的adoquery属性  一个样呢 
      

  4.   

    有了类,如何把它实例搞成对象,就是能放到palette或者加到窗口中呢,不要在窗口中还var
      ADay:TDate;
    我想在窗口中就象其它控件一样的直接赋值了。