delphi - 通用类型的大小

Question

有什么方法可以确定类似内容的大小(以字节为单位)

TItem <T> = record
  Data : T;
end;

我可以写一些类似的东西

function TItem <T>.GetByteSize : Integer;
begin
if (T = String) then
  Result := GetStringByteSize (Data as String)
else
  Result := SizeOf (Data);
end;

或者也许在特化的帮助下？

function TItem <String>.GetByteSize : Integer;
begin
  Result := GetStringByteSize (Data)
end;

function TItem <T>.GetByteSize : Integer;
begin
  Result := SizeOf (Data);
end;

谢谢!

Answer 1

获取实例化类型的大小是否有问题？

SizeOf(TItem<string>)

或者您可以像这样定义 GetByteSize:

function TItem <T>.GetByteSize : Integer;
begin
  Result := SizeOf(TItem<T>);
end;