delphi absolute 应用实例
2016-04-21 16:58
501 查看
procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2:Integer;
b:array [0..3] of Byte absolute i1; // b 在这里跟 i1 共用地址
begin
i1 := 1234;
i2 := MakeLong(MakeWord(b[0],b[1]),MakeWord(b[2],b[3]));
// 在内存中i1其实是反过来存储,
// 普通情况表达一个数字是“高位+低位”,而内存中是“低位+高位”的表达方式
// MakeXXX 函数就是实现了这种变化
if i1 = i2 then
ShowMessage('确认');
end;
var
i1,i2:Integer;
b:array [0..3] of Byte absolute i1; // b 在这里跟 i1 共用地址
begin
i1 := 1234;
i2 := MakeLong(MakeWord(b[0],b[1]),MakeWord(b[2],b[3]));
// 在内存中i1其实是反过来存储,
// 普通情况表达一个数字是“高位+低位”,而内存中是“低位+高位”的表达方式
// MakeXXX 函数就是实现了这种变化
if i1 = i2 then
ShowMessage('确认');
end;
相关文章推荐
- Delphi常见错误及解决方法
- Delphi 调用C#编写的WebService 参数为Null解决方法
- DELPHI中的消息处理机制
- Delphi 中 函数参数中的 const 修饰符的本质以及注意事项
- DELPHI用const来提高应用程序在多核多线程下的性能
- delphi编写分页显示的模板
- Delphi 关闭MDI子窗口
- DELPHI 参数前缀的使用
- Delphi - 字符串 详解
- 分析函数调用堆栈的原理和Delphi实现
- Delphi关键字详解(转载自“万一”)
- Delphi 线程Timer (TThreadTimer)
- Delphi 调用 C++ 回调函数
- delphi RAD Studio新版本及路线图 及官方网站 官方 版本发布时间
- delphi 错误信息
- Delphi2007新功能 -- 有限的栈对象
- Delphi栈对象
- Delphi中的堆,栈
- Delphi字符串函数大全
- 当打开Delphi7,出现“borland license information was found,but it is not valid for delphi”的错误,无法运行的解决方法