delphi声明类及其调用方法

{type放在interface下的uses引用单元下面}
 1 // 声明类
 type
   TMyclass = class                               //注意这里不能加';' 因为这是个整体
     data: integer;                               //类的域
     procedure ChangeData(Value: integer);        // 类的方法(过程)按住Ctrl + shift + c键自动生成函数体
     function GetData:integer;                    //类的方法(函数)
     // 类的域和方法可以根据自己的需要添加
 end;

 { TMyclass }
 procedure TMyclass.ChangeData(Value: integer);
 begin
   Data := Value;                 //
 end;

 function TMyclass.GetData: integer;
 begin
   result := Data;
 end;

 // 访问类
 procedure TForm1.SpeedButton2Click(Sender: TObject);
 var
   Myclass: TMyclass;
   i: integer;
 begin
   try
     myclass := TMyclass.Create;    // 使用前一定要实例化，不然不能用
     myclass.ChangeData();        // 给类的方法赋值，
     i := myclass.GetData;          // 获取类中
     showMessage(IntToStr(i));      // {12}
   finally
     myclass.Free;                 // 最后需要将使用过的内存释放
   end;
 end;

另外，类中还存在两种特殊的方法，分别构造方法（Constructor）和析构方法（Destructor）。
类就是面向对象的思想。