procedure TForm4.Button1Click(Sender: TObject);var  a: AnsiString;{本地系统GBK编码}  b: UnicodeString;  c: UTF8String;  d: WideString;{WideString的编码也是Unicode的,与String的区别是没有引用计数,编译器会自动识别处理}  e: string;{UnicodeString}  a1,b1,c1,d1,e1: TBytes;begin  a := ‘a好‘;//好---2个字节  b := ‘a好‘;//好---2个字节  c := ‘a好‘;//好---3个字节  d := ‘a好‘;//好---2个字节  e := ‘a好‘;//好---2个字节  //知识点1：首先AnsiString(本地GBK)、UnicodeString、UTF8String、WideString都是兼容ASCII码的  //知识点2：SizeOf 都等于4的原因是, String是栈堆存储的, SizeOf算的是栈中指针的字节数。  //知识点3: Length 返回的是字节数,但是对于Unicode编码的字符串而言（String,UnicodeString,WideString）,返回的是字节数除以2  //知识点4：widestring也是unicode编码的.  Memo1.Lines.Clear;  Memo1.Lines.Add(‘AnsiString：‘ + sLineBreak + Length(a).ToString + sLineBreak + SizeOf(a).ToString);  Memo1.Lines.Add(‘UnicodeString：‘ + sLineBreak + Length(b).ToString + sLineBreak + SizeOf(b).ToString);  Memo1.Lines.Add(‘UTF8String：‘ + sLineBreak + Length(c).ToString + sLineBreak + SizeOf(c).ToString);  Memo1.Lines.Add(‘WideString：‘ + sLineBreak + Length(d).ToString + sLineBreak + SizeOf(d).ToString);  Memo1.Lines.Add(‘string：‘ + sLineBreak + Length(e).ToString + sLineBreak + SizeOf(e).ToString);  //让我们看看堆中的数据到底有几个字节数以及如何存储的  a1 := TEncoding.ANSI.GetBytes(a);  b1 := TEncoding.Unicode.GetBytes(b);  c1 := TEncoding.UTF8.GetBytes(c);  d1 := TEncoding.Unicode.GetBytes(d);  e1 := TEncoding.Unicode.GetBytes(e);end;procedure TForm4.Button2Click(Sender: TObject);var  //a: AnsiString[10];报错,不能这样定义  //b: UnicodeString[10];报错,不能这样定义  //c: UTF8String[10];报错,不能这样定义  //d: WideString[10];报错,不能这样定义  a: string[10];  b: ShortString;{相当于 String[255]}  a1,b1: TBytes;begin  a := ‘a好‘;  b := ‘a好‘;  //知识点1：对于定长字符串也是堆栈的方式存储的  //知识点2：string的下标是从1开始的,所以string[10] 就是 1..10个元素,那么为什么SizeOf等于11呢,因为定长字符串会多出一个首字节来记忆字符串的实际长度  //知识点3: 虽然定长字符串也是堆栈方式存储的,但是SizeOf返回的结果与变长字符串不同,返回的是实际占用的字节数.  Memo1.Lines.Clear;  Memo1.Lines.Add(‘string[10]：‘ + sLineBreak + Length(a).ToString + sLineBreak + SizeOf(a).ToString);  Memo1.Lines.Add(‘ShortString：‘ + sLineBreak + Length(b).ToString + sLineBreak + SizeOf(b).ToString);  //让我们看看堆中的数据到底有几个字节数以及如何存储的  a1 := TEncoding.Unicode.GetBytes(a);  b1 := TEncoding.Unicode.GetBytes(b);end;procedure TForm4.Button3Click(Sender: TObject);var  a: array[0..5] of Byte;  b: TBytes;begin  //构造动态数组  b := WideBytesOf(‘abc您好‘);  //知识点1：静态数组是仅仅栈内存储的，而动态数组是堆栈方式存储的  //知识点2：观察SizeOf的结果你会发现,SizeOf对应静态数组而言返回的就是占用的字节数,对于动态数组而言返回的是指针占用的字节数  Memo1.Lines.Clear;  Memo1.Lines.Add(‘静态数组：‘ + sLineBreak + Length(a).ToString + sLineBreak + SizeOf(a).ToString);  Memo1.Lines.Add(‘动态数组：‘ + sLineBreak + Length(b).ToString + sLineBreak + SizeOf(b).ToString);end;