Delphi静态数组RTTI信息研究

第一、要知道静态数组类型的PTypeInfo的类型信息，可以通过TypeInfo(数组类型)来获取到。
第二、知道上述类型后，可以通过GetTypeData函数来获取到数组元素的类型信息，通过ArrayData.ElCount就是数组的元素个数， 通过PTypeData.ArrayData.ElType取元素的类型。如果RTTI信息不存在，则不需要继续了，你的代码没有相应类型的RTTI信息，你尝试单独将静态数组的类型拿出来定义看看。
第三、知道了子元素的类型后，其TypeData的ElSize就是单个数组元素的大小占用空间大小，这个数组的空间占用也就好算了，就是元素数量*单个元素的空间占用大小就OK了。
第四、你想咋折腾俺就不知道了。
参考代码在QJson中有，抽取如下：
function GetFixedArrayItemType:PTypeInfo;
var
pType:PPTypeInfo;
begin
pType:= GetTypeData(AType)^.ArrayData.ElType;
if pType = nil then
Result := nil
else
Result := pType^;
end;
procedure ToFixedArray;
var
I,C,ASize:Integer;
ASubType:PTypeInfo;
AChild:TQJson;
AChildObj:TObject;
pi:Pointer;
begin
C:=GetTypeData(AType).ArrayData.ElCount;
ASubType:=GetFixedArrayItemType;
if ASubType=nil then
Exit;
ASize:=GetTypeData(ASubType).elSize;
for I := 0 to C-1 do
begin
pi:=Pointer(IntPtr(ADest)+ASize*I);
...
end;
end;