//packedprocedure TForm1.Button1Click(Sender: TObject);
type
tempbuffer=packed record
case byte of
0:(buffer:array[0..26]of byte);
1:(floatnum:array[0..2]of byte;
carno:array[0..11]of byte;
commandalloc:array[0..9]of byte;
bufsum:word;);
end;
begin
Caption := IntToStr(SizeOf(tempbuffer));
end;
type
tempbuffer=packed record
case byte of
0:(buffer:array[0..26]of byte);
1:(floatnum:array[0..2]of byte;
carno:array[0..11]of byte;
commandalloc:array[0..9]of byte;
bufsum:word;);
end;
begin
Caption := IntToStr(SizeOf(tempbuffer));
end;
解决方案 »
- 如何定义快捷键
- 如何判断是否有程序在读写硬盘分区?
- 菜鸟求教 怎么删除DBGrid里选中的数据!
- [********散分********]半年没没有动过DELPHI了今天刚装上,以后又要和大家一起学习了!散分!!!!!
- 三層客戶端重覆問題????
- 一个关于串口通信的问题??
- 我从来没有遇到过这么S板的编译器,字体这么少,而且没一种好看一些的,连最起码的Arial都没有,没一种舒服的,大家都用什么字体啊?
- 平凡的数据库程序在其他机器上的使用问题!!
- 谁有D3的运行期库:TEE30.dpl,TEEDB30.dpl,TEEUI30.dpl
- NMHTTP控件能否边下载边读取?
- 关于dbgrid
- 二选一,怎样选哟!
不过一个单词(packed)花了我50分真划不来!
:)
改成 bufsum: array[0..1] of byte;就可以了!