谁能给我讲讲pascal里的压缩数组是怎么一回事?
最好能说一下它的原理和用途?
例如记录:
MyRecord = Record
I: Integer;
C: Char;
end;
var OneMyRecord: MyRecord;
SizeOf(OneMyRecord.I) //为4
SizeOf(OneMyRecord.C) //为4 (因为不压缩,编译器将C的长度和I的长度自动对齐)
如果定义为压缩:
MyRecord = Packed Record
I: Integer;
C: Char;
end;
则:
SizeOf(OneMyRecord.I) //为4
SizeOf(OneMyRecord.C) //为1
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————