const LapeTypeSize: array [ELapeBaseType] of Integer = (- 1, SizeOf(UInt8), SizeOf(Int8), SizeOf(UInt16), SizeOf(Int16), SizeOf(UInt32), SizeOf(Int32), SizeOf(UInt64), SizeOf(Int64), SizeOf(Currency), SizeOf(Single), SizeOf(Double), SizeOf(Extended), SizeOf(Boolean), SizeOf(ByteBool), SizeOf(WordBool), SizeOf(LongBool), SizeOf(AnsiChar), SizeOf(WideChar), SizeOf(ShortString), SizeOf(AnsiString), SizeOf(WideString), SizeOf(UnicodeString), SizeOf(Variant), SizeOf(ELapeSmallEnum), SizeOf(ELapeLargeEnum), SizeOf(TLapeSmallSet), SizeOf(TLapeLargeSet), SizeOf(Pointer), - 1, - 1, SizeOf(Pointer), - 1, SizeOf(TCodePos), SizeOf(Pointer)); |