TImageFields record case Boolean of true Base DWORD List TList TField

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
TImageFields = record
case Boolean of
true:( Base: DWORD;
List: TList<TField> );
// !! size of this record must be at least 13 bytes or call
// !! to Generics.Collections.TList<TImageFields>.Delete
// !! causes AV in D2009 12.0.3210.17555
false:( RecSizeField: packed array [0..12] of byte );
end;