mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 14:08:05 +02:00
dce960c97b
- TotalSize of all array dimensions instead of first dimension size - Element type of last array dimension - dimension information rtl: - adopt array initialization/finalization/copy for the new tkArray RTTI - add Delphi compatible TArrayTypeData member for typinfo.TTypeData structure tests: - add a test which checks RTTI information for 2 dimension array git-svn-id: trunk@24458 -
30 lines
620 B
ObjectPascal
30 lines
620 B
ObjectPascal
program trtti8;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
typinfo;
|
|
|
|
type
|
|
TColor = (red, green, blue);
|
|
TFirstArr = array[0..3] of Integer;
|
|
TArr = array[TColor] of TFirstArr;
|
|
var
|
|
Info: PTypeInfo;
|
|
Data: PTypeData;
|
|
begin
|
|
Info := TypeInfo(TArr);
|
|
if Info^.Kind <> tkArray then
|
|
halt(1);
|
|
Data := GetTypeData(Info);
|
|
if Data^.ArrayData.Size <> 12 * SizeOf(Integer) then
|
|
halt(2);
|
|
if Data^.ArrayData.ElCount <> 12 then
|
|
halt(3);
|
|
if Data^.ArrayData.ElType <> TypeInfo(Integer) then
|
|
halt(4);
|
|
if Data^.ArrayData.DimCount <> 2 then
|
|
halt(5);
|
|
if Data^.ArrayData.Dims[0] <> TypeInfo(TColor) then
|
|
halt(6)
|
|
end. |