关于动态数组、静态数组转换为字符串的一些问题 - 给 "厨师" 的回复

问题来源: http://www.cnblogs.com/del/archive/2008/05/21/1192113.html#1204252

---

首先, 只有字符类型的数组才可以直接转换为字符串!

---

//这是静态数组的例子:var  Arr: array[0..9] of Char;  s: string;  p: PChar;  i: Integer;begin  {给 Arr 赋值: A B C D E F G H I J}  for i := Low(Arr) to High(Arr) do    Arr[i] := Chr(65+i);  {把 Char 数组赋给 string}  s := Arr;  ShowMessage(s); {ABCDEFGHIJ}  {把 Char 数组赋给 PChar}  p := PChar(string(Arr));  ShowMessage(p); {ABCDEFGHIJ}  {直接把 Char 数组赋给 PChar, 会有意想不到的结果, 因为缺少 #0 结束}  p := Arr;  //p := @Arr;    {或者这样}  //p := @Arr[0]; {再或者这样}  ShowMessage(p); {ABCDEFGHIJ未知数据}  {这种方式偏偏是我们在使用 API 函数时用得最多的, 但 API 函数都会返回给 #0 结束的, 所以没有问题}end;//这是动态数组的例子:var  Arr: array of Char;  s: string;  p: PChar;  i: Integer;begin  {给 Arr 赋值: A B C D E F G H I J}  for i := 0 to 9 do  begin    SetLength(Arr, i+1);    Arr[i] := Chr(65+i);  end;  Pointer(s) := Arr;  //Pointer(s) := @Arr[0]; {或者这样}  ShowMessage(s); {ABCDEFGHIJ}  p := PChar(Arr);  //p := @Arr[0]; {或者这样}  ShowMessage(p); {ABCDEFGHIJ}end;

要想彻底理解上面的操作, 需要知道静态数组与动态数组指针问题.

---

var  ArrS: array[0..9] of Char; {静态数组}  ArrD: array of Char;       {动态数组}  i: Integer;begin  {设置动态数组大小, 并给两个数组赋值}  SetLength(ArrD, 10);  for i := 0 to 9 do  begin    ArrS[i] := Char(65+i);    ArrD[i] := Char(97+i);  end;  {测试赋值结果}  ShowMessageFmt('%s, %s', [ArrS[0], ArrD[0]]); {A, a}  {静态数组变量的指针(而非变量本身)和它的第一个元素的指针是同一个}  ShowMessageFmt('%p, %p', [@ArrS[0], @ArrS]);  {0012FDE2, 0012FDE2}  {动态数组变量本身(而非变量的指针)就是一个指针, 它和第一个元素的指针也是同一个}  ShowMessageFmt('%p, %p, %p', [ArrD, @ArrD[0], @ArrD]); {00E7C970, 00E7C970, 0012FDEC}end;

另外, 动态数组的构造和静态数组完全不同, 它和 String 的构造 倒是有些相似.

每个动态数组第一个元素前还有 8 个字节, 没 4 个字节记录一个整数;

最前面 4 个字节是用于生存管理的引用计数(当引用计数为 0 时数组自动释放);

第一个元素之前的 4 个字节记录数组的长度. 测试如下:

---

var  Arr1,Arr2: array of Char; {定义两个动态数组, 其中一个是为了测试引用计数}  i: Integer;  {用于指针运算}  p: PInteger; {用于读取动态数组前面的两个 32 位整数}begin  SetLength(Arr1, 10); {设置数组长度}  Arr2 := Arr1;        {增加一个引用}  i := Integer(Arr1);  {获取数组地址(这也是数组第一个元素的位置)}  {获取动态数组的长度}  i := i-4;  p := PInteger(i);  ShowMessage(IntToStr(p^)); {10}  {获取动态数组的引用计数}  i := i-4; {再减 4}  p := PInteger(i);  ShowMessage(IntToStr(p^)); {2}end;