作者:swish
第一、要知道静态数组类型的PTypeInfo的类型信息,可以通过TypeInfo(数组类型)来获取到。
第 二、知道上述类型后,可以通过GetTypeData函数来获取到数组元素的类型信息,通过ArrayData.ElCount就是数组的元素个数, 通过PTypeData.ArrayData.ElType取元素的类型。如果RTTI信息不存在,则不需要继续了,你的代码没有相应类型的RTTI信 息,你尝试单独将静态数组的类型拿出来定义看看。
第三、知道了子元素的类型后,其TypeData的ElSize就是单个数组元素的大小占用空间大小,这个数组的空间占用也就好算了,就是元素数量*单个元素的空间占用大小就OK了。
第四、你想咋折腾俺就不知道了。
参考代码在QJson中有,抽取如下:
第 二、知道上述类型后,可以通过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;