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(12);        // 给类的方法赋值，
    i := myclass.GetData;          // 获取类中
    showMessage(IntToStr(i));      // {12}
  finally
    myclass.Free;                 // 最后需要将使用过的内存释放
  end;
end;

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