delphi(D7)record,object,class区别比较
一、功能比较
record：
1.不支持继承
2.不支持作用域
3.不支持方法、属性（D2005后支持）
4.支持栈、堆内存（具体与声明的变量相同，无需构造函数）
5. 赋值类型（支持赋值操作符:=）
6.支持内置集合类型
7.支持变体定义
注：D7以后的版本的record新增了很多特性，部分不一样，支持helper 支持作用域，支持构造函数等等。。。新版的record已经刷新三观。
object：
1.支持继承
2.支持作用域（不支持Published）
3.支持方法、属性，支持Self
4.支持栈、堆内存（具体与声明的变量相同，无需构造函数）
5. 赋值类型（支持赋值操作符:=）
6.支持内置集合类型
7.不支持变体定义
注意：该关键字实际上是turbo pascal时期使用的，Object pascal已经不再建议使用object关键字来定义类了，而且其角色已被新版本Delphi的record代替
class：
1.支持继承
2.支持作用域
3.支持方法、属性，支持Self
4.只支持堆内存（分配需调用构造函数）
5. 指针参数类型（不支持赋值操作符:=）
6.支持内置集合类型
7.不支持变体定义
测试代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TTestRecord = record
P1: Integer;
S: (S2, S3, S4);//内置集合类型
FTEST: Integer; //成员定义
case Byte of //支持变体的定义
0:( C1: Byte);
1:( C2: Char);
{type
TTT = Integer;
var
FTEST: TTT;}
//case
end;
TTestClass = Class
private
FTEST: Integer;
FP1: Integer;
S_C: (S_C2, S_C3, S_C4);//内置集合类型
procedure SetP1(const Value: Integer);
public
function Test(Name:string):Integer;
property P1: Integer read FP1 write SetP1;
end;
TTestObject = object
private
FTEST: Integer;
FP1: Integer;
S_O: (S_O2, S_O3, S_O4);//内置集合类型
procedure SetP1(const Value: Integer);
public
function Test(Name:string):Integer;
property P1: Integer read FP1 write SetP1;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TestRecord_Test(Name:string; var TestRecord: TTestRecord): Integer;
begin
Result := TestRecord.FTEST;
Form1.Memo1.Lines.Add('================='+Name+'==========');
Form1.Memo1.Lines.Add(Name+'.Address(@FTEST):='+IntToStr(Integer(@TestRecord.FTEST)));
Form1.Memo1.Lines.Add(Name+'.P1 :='+IntToStr(Integer(TestRecord.P1)));
Form1.Memo1.Lines.Add(Name+'.FTEST:='+IntToStr(TestRecord.FTEST));
Form1.Memo1.Lines.Add(Name+'.C1 :='+IntToStr(TestRecord.C1));
Form1.Memo1.Lines.Add(Name+'.C2 :='+TestRecord.C2);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
TestObject1, TestObject2: TTestObject; //栈内存
TestClass1, TestClass2 : TTestClass; //堆内存
TestRecord1, TestRecord2: TTestRecord; //栈内存
begin
//Object
TestObject1.FTEST := 1;
TestObject1.P1 := 2;
TestObject1.Test('TestObject1');
TestObject2 := TestObject1;
TestObject2.Test('TestObject2');
//Class
TestClass1 := TTestClass.Create;
TestClass1.FTEST := 1;
TestClass1.P1 := 2;
TestClass1.Test('TestClass1');
TestClass2 := TestClass1;
TestClass2.Test('TestClass2');
//Record
TestRecord1.FTEST := 1;
TestRecord1.P1 := 2;
TestRecord1.S := S3;
TestRecord1.C1 := 48;
TestRecord_Test('TestRecord1', TestRecord1);
TestRecord2:= TestRecord1;
TestRecord_Test('TestRecord2', TestRecord2);
end;
{ TTestObject }
procedure TTestObject.SetP1(const Value: Integer);
begin
FP1 := Value;
end;
function TTestObject.Test(Name:string): Integer;
begin
Result := Self.FTEST;
Form1.Memo1.Lines.Add('================='+Name+'==========');
Form1.Memo1.Lines.Add(Name+'.Address(@FTEST):='+IntToStr(Integer(@FTEST)));
Form1.Memo1.Lines.Add(Name+'.P1 :='+IntToStr(Self.P1));
Form1.Memo1.Lines.Add(Name+'.FTEST:='+IntToStr(Self.FTEST));
end;
{ TTestClass }
procedure TTestClass.SetP1(const Value: Integer);
begin
FP1 := Value;
end;
function TTestClass.Test(Name:string): Integer;
begin
Result := Self.FTEST;
Form1.Memo1.Lines.Add('================='+Name+'==========');
Form1.Memo1.Lines.Add(Name+'.Address(@FTEST):='+IntToStr(Integer(@FTEST)));
Form1.Memo1.Lines.Add(Name+'.P1 :='+IntToStr(Self.P1));
Form1.Memo1.Lines.Add(Name+'.FTEST:='+IntToStr(Self.FTEST));
end;
end.
测试返回结果：
=================TestObject1==========
TestObject1.Address(@FTEST):=1244692
TestObject1.P1 :=2
TestObject1.FTEST:=1
=================TestObject2==========
TestObject2.Address(@FTEST):=1244684
TestObject2.P1 :=2
TestObject2.FTEST:=1
=================TestClass1==========
TestClass1.Address(@FTEST):=9779844
TestClass1.P1 :=2
TestClass1.FTEST:=1
=================TestClass2==========
TestClass2.Address(@FTEST):=9779844
TestClass2.P1 :=2
TestClass2.FTEST:=1
=================TestRecord1==========
TestRecord1.Address(@FTEST):=1244676
TestRecord1.P1 :=1
TestRecord1.FTEST:=1
TestRecord1.C1 :=48
TestRecord1.C2 :=0
=================TestRecord2==========
TestRecord2.Address(@FTEST):=1244664
TestRecord2.P1 :=1
TestRecord2.FTEST:=1
TestRecord2.C1 :=48
TestRecord2.C2 :=0
