TA = record
    a : char;
    b : integer;
end;

TB = packed record
    a : char;
    b : integer;
end;

type
    t = packed record
        a : char;    //1个字节
        d : double;    //8个字节
        b : smallint; //4个字节，虽然本来smallint是2个字节，但是因为如果一个变量没有4个字节宽的话也要占4个字节，所以现在要补宽到4个字节
end;

//所以sizeof(t) = 13

type
    t = record
        a : char;    //8字节，因为a的长度不够8个字节，而紧邻着的d 为一个字（8个字节），所以要补齐8
        d : double;    //8字节
        b : smallint;    //8字节
end;

//sizeof(t)=24

type
    t = record
        a : char;    //1个字节
        b : smallint; //2个字节
        d : double;    //8个字节
end;

//sizeof(t)=13

type
    t = record
        a : char;    //因为a的长度为1个字节，后面的b为两个字节，累加起来是3个字节
                        //再后面的d为8个字节，所以a+b要补齐到8个字节
        b : smallint;    //a+b共占8个自己
        d : double;    //8个字节
end;

//sizeof(t) = 16;