Delphi静态数组RTTI信息研究

• Delphi • 评论关闭 • •浏览 3,020 次
作者：swish
第一、要知道静态数组类型的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;

 

分享到：