| 发表于:2008-01-23 08:26:111楼 得分:0 |
用move.该函数的第一个参数可以是任意类型。 type tdatapack=record id: 1 byte //帧头 name: 2 bytes //代号 pwd: 2 bytes //密码 action: 1 byte //动作 end; ... sbuffer:array [1..4] of byte; datapack: tdatapack; ... move(sbuffer[0],datapack.id,1); move(sbuffer[1],datapack.name,2); ... | | |
|