unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type {下面两个结构体的大小都是 4 字节, 相当于一个 Cardinal 或 Integer 或 DWORD 的大小} TMyByteStruct = record b1: Byte; b2: Byte; b3: Byte; b4: Byte; end; TMyWordStruct = record w1: Word; w2: Word; end; procedure TForm1.Button1Click(Sender: TObject); var ByteStruct: TMyByteStruct; num: Cardinal; begin {假如} ByteStruct.b1 := $A1; ByteStruct.b2 := $B2; ByteStruct.b3 := $C3; ByteStruct.b4 := $D4; {那么} num := Cardinal(ByteStruct); ShowMessageFmt('$%x', [num]); //$D4C3B2A1 end; procedure TForm1.Button2Click(Sender: TObject); var WordStruct: TMyWordStruct; num: Cardinal; begin {假如} WordStruct.w1 := $ABCD; WordStruct.w2 := $1234; {那么} num := Cardinal(WordStruct); ShowMessageFmt('$%x', [num]); //$1234ABCD end; procedure TForm1.Button3Click(Sender: TObject); var num: Cardinal; ByteStruct: TMyByteStruct; begin num := $ABCD1234; Cardinal(ByteStruct) := num; //ByteStruct := TMyByteStruct(num); {这同上一句} ShowMessageFmt('$%x', [ByteStruct.b1]); //$34 ShowMessageFmt('$%x', [ByteStruct.b2]); //$12 ShowMessageFmt('$%x', [ByteStruct.b3]); //$CD ShowMessageFmt('$%x', [ByteStruct.b4]); //$AB end; procedure TForm1.Button4Click(Sender: TObject); var num: Cardinal; WordStruct: TMyWordStruct; begin num := $ABCD1234; Cardinal(WordStruct) := num; //WordStruct := TMyWordStruct(num); {这同上一句} ShowMessageFmt('$%x', [WordStruct.w1]); //$1234 ShowMessageFmt('$%x', [WordStruct.w2]); //$ABCD end; procedure TForm1.Button5Click(Sender: TObject); var ByteStruct: TMyByteStruct; WordStruct: TMyWordStruct; begin WordStruct.w1 := $2211; WordStruct.w2 := $4433; Cardinal(ByteStruct) := Cardinal(WordStruct); //ByteStruct := TMyByteStruct(WordStruct); {这同上一句} ShowMessageFmt('$%x', [ByteStruct.b1]); //$11 ShowMessageFmt('$%x', [ByteStruct.b2]); //$22 ShowMessageFmt('$%x', [ByteStruct.b3]); //$33 ShowMessageFmt('$%x', [ByteStruct.b4]); //$44 end; end.
分类:
数据类型相关
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
2008-01-10 delphi.about.com 上的教材链接
2008-01-10 Delphi 7 以来的语法等变化
2008-01-10 推荐一套 Delphi 入门级视频