delphi中有否类和实例化的概念？

Question

delphi中是否有和java或者c++那种类和实例化的概念
象在java或者c++中先定义类，然后可以构造不同的实例呢？
class rect(){
public
  setx();
  sety();
private
  x,y....}

Answer 1

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; 

Answer 2

unit Myclock
type
   TTimeFormat=(tfh24,tfh12);
   Tclock=class(Tclk)
   private
        FHour:Integer;
        FMinute:Integer;
        Fsecond:Integer;
        FTimeFormat:TTmineformat;
   public
        function SetTime(h,m,s:Integer):Boolean;
        function GetTime:TDateTime;
        Procedure TimeGo;
   published
        property TimeFormat:TTimeFormat read FTimeFormat write FTimeFormat
   end;
   
   inplementation
      function TClock.GetTime:TDatetime;
    begin
      Result:EncodeTime(FHour,FMinute,FSecond,0);
   end
   .....
创建实例
   在你的单元中引用Myclock
    var
     aclock:tclock;
   begin
     aclock:=TClock.create;

Answer 3

同样是面向对象，DELPHI中怎会没有？

Answer 4

当然有，create()就是构造实例

Answer 5

当然可以的，只不过C++的构造函数是自动执行的，而Delphi中必须自己执行类的Create函数，你可以重载或者覆盖Create，来实现不同的目的

Answer 6

有，很多介绍Delphi的书上都有。

Answer 7

類和實例都是面向對象中的內容
delphi有面向對象編程的東西
類和實例肯定有啊