Delphi中的数据类型

从其它平台迁移而来

之前一直使用的是Delphi 7，现在准备转向Delphi XE7，据说数据类型上有一些微小的调整，便想亲自验证一下，也顺便加深一下自己对Delphi数据类型的认识，毕竟之前仅仅是在用而从未考虑过类型在内存中的形态。

验证方法很简单，就是在控制台用Sizeof()把相应数据类型的字节数显示出来。源码如下：

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117


program TypeSize;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Emnu = (one, two, three, four);

  Range1 = $0..$FF;

  Range2 = $0..$FFFF;

  Range3 = $0..$FFFFFFFF;

  arr1 = array of Byte;

  arr2 = array[0..9] of Byte;

  arr3 = array[0..9] of Integer;

  rcd1 = record
  end;

  rcd2 = record
    b: Byte;
  end;

  rcd3 = record
    i: Integer;
  end;

  rcd4 = record
    i: Integer;
    j: Integer;
  end;

  rcd5 = record
    b: Byte;
    i: Integer;
  end;

  rcd6 = record
    r: Real;
  end;

  rcd7 = record
    r: Real;
    i: Integer;
  end;

  obj1 = object
  end;

  obj2 = object
    c: Char;
  end;

  obj3 = object
    i: Integer;
    o: obj2;
  end;

begin
  Writeln('   Type     | Bytes');
  Writeln('--------------------------------');
  Writeln('AnsiChar    = ', SizeOf(AnsiChar));
  Writeln('WideChar    = ', SizeOf(WideChar));
  Writeln('Char        = ', SizeOf(Char));
  Writeln('Byte        = ', SizeOf(Byte));
  Writeln('ShortInt    = ', SizeOf(ShortInt));
  Writeln('SmallInt    = ', SizeOf(SmallInt));
  Writeln('LongInt     = ', SizeOf(LongInt));
  Writeln('Int64       = ', SizeOf(Int64));
  Writeln('Byte        = ', SizeOf(Byte));
  Writeln('Word        = ', SizeOf(Word));
  Writeln('LongWord    = ', SizeOf(LongWord));
  Writeln('Integer     = ', SizeOf(Integer));
  Writeln('Cardinal    = ', SizeOf(Cardinal));
  Writeln('Boolean     = ', SizeOf(Boolean));
  Writeln('ByteBool    = ', SizeOf(ByteBool));
  Writeln('WordBool    = ', SizeOf(WordBool));
  Writeln('LongBool    = ', SizeOf(LongBool));
  Writeln('Single      = ', SizeOf(Single));
  Writeln('Real48      = ', SizeOf(Real48));
  Writeln('Double      = ', SizeOf(Double));
  Writeln('Extended    = ', SizeOf(Extended));
  Writeln('Comp        = ', SizeOf(Comp));
  Writeln('Currency    = ', SizeOf(Currency));
  Writeln('Real        = ', SizeOf(Real));
  Writeln('ShortString = ', SizeOf(ShortString));
  Writeln('AnsiString  = ', SizeOf(AnsiString));
  Writeln('WideString  = ', SizeOf(WideString));
  Writeln('String      = ', SizeOf(string));
  Writeln('Variant     = ', SizeOf(Variant));
  Writeln('Pointer     = ', SizeOf(Pointer));
  Writeln('--------------------------------');
  Writeln('Emnu        = ', SizeOf(Emnu));
  Writeln('Range(0,FF)       = ', SizeOf(Range1));
  Writeln('Range(0,FFFF)     = ', SizeOf(Range2));
  Writeln('Range(0,FFFFFFFF) = ', SizeOf(Range3));
  Writeln('Array()           = ', SizeOf(arr1));
  Writeln('Array(10)Byte     = ', SizeOf(arr2));
  Writeln('Array(10)Int      = ', SizeOf(arr3));
  Writeln('Record()                   = ', SizeOf(rcd1));
  Writeln('Record(1 byte)             = ', SizeOf(rcd2));
  Writeln('Record(1 int)              = ', SizeOf(rcd3));
  Writeln('Record(2 int)              = ', SizeOf(rcd4));
  Writeln('Record(1 byte, 1 int)      = ', SizeOf(rcd5));
  Writeln('Record(1 real)             = ', SizeOf(rcd6));
  Writeln('Record(1 real, 1 int)      = ', SizeOf(rcd7));
  Writeln('Object()                   = ', SizeOf(obj1));
  Writeln('Object(1 char)             = ', SizeOf(obj2));
  Writeln('Object(1 int, 1 obj(char)) = ', SizeOf(obj3));
  Readln;
end.

分别用Delphi 7和Delphi XE7编译，运行结果如图：

从运行结果可以看出：

Delphi 7和Delphi XE7数据类型的唯一区别就是默认的字符集发生的变化，Delphi 7中 Char = AnsiChar，Delphi XE7中Char = WideChar，即Delphi 7默认使用ANSI编码，Delphi XE7默认使用Unicode编码。相应的，Delphi XE7中String = WideString，PChar = PWideChar。
AnsiString、WideString、String和Pointer一样占用4B的空间，说明，字符串类型的本质其实就是指针。由于Delphi对字符封装得很好，使用起来感觉和整型、浮点型等没有什么差别，但毕竟还是不一样的，这是需要注意的（有关情况我会在另一篇中详细说明）。
枚举类型4个元素占1B，其它数量时也是1B，说明枚举类型实际存储的是元素的索引，或者说枚举类型的元素实际是对应索引值的一个别名。至于超过256个元素的情况未进行测试，即枚举类型元素上限未测。
子界类型与枚举类型比较类似，当元素个数少于256时用1B存储，超过256个时用2B，2B不够时用4B（没有3B的情况），以此推测，4B不够时将用8B、16B等。
静态数组占用的是连续的内存区域，其大小为数组元素大小的总合；动态数组在未指定数组大小时只有4B，说明动态数组的本质也是指针（有关细节会同字符串一同说明）。
记录类型的大小一般来说是其元素类型的大小*元素的个数，无元素时0B；如果元素类型不一致，元素类型统一按较大的类型的大小进行存储（猜想是为了方便寻址，拿空间换时间，提高运行速度）。
Object类型是Delphi较早的一种类型，与记录类型很类似，不同的是其占用空间的大小为其元素大小的总合。估计Object类型就是记录类型的前身，而在记录类型出现后也依然没有消亡，想必仅仅是为了兼容古老的程序吧。

**补充：**记录类型加packed修饰时，其大小为所有元素大小之和，与C语言中的结构体一致，因此，在编写兼容C的接口时，通常使用加packed的记录类型。

1
2
3


rcd = packed record
  ...
end;