以下代码可以看到 Int64Rec <--> Int64
procedure TForm1.Button2Click(Sender: TObject);
var ii1,ii2,ii3:Int64;Hi,Lo:Cardinal;temp:Int64Rec;
begin
ii1 := ;
Hi := Int64Rec(ii1).Hi;
Lo := Int64Rec(ii1).Lo;
ii2 := MakeROP4(Lo,Hi); // 这个函数没有什么实质的意义,只是为了表达 Hi + Lo = Int64
if ii1 = ii2 then
ShowMessage('确认');
if CompareMem(@ii1,@ii2,) then
ShowMessage('CM确认');
temp.Hi := Hi;
temp.Lo := Lo;
ii3 := Int64(temp);
if ii1 = ii3 then
ShowMessage('再次确认');
end;
相关文章
- DRP项目(七)----XML应用和XML的四种解析器(dom,sax,jdom和dom4j)原理及实例
- [Android实例] android应用静默升级,安装完成后自动启动该应用
- WLAN API应用介绍(含实例程序)
- 使用 IBM 中间件实现 SaaS 解决方案,第 4 部分: 单一实例多租户应用程序中资源共享的设计模式
- 基于DDD的.NET开发框架ABP实例,多租户 (Sass)应用程序,采用.NET MVC, Angularjs, EntityFramework-介绍
- 广度优先(bfs)和深度优先搜索(dfs)的应用实例
- FMS应用实例 - 从FMS服务器读取文件(图片/SWF/文本)到客户端
- 多租户应用程序中的Google appengine创建单个实例,并且一旦设置就不允许其他租户
- linux下dd命令详解及应用实例
- TensotFlow 应用实例:10-Overfitting 过拟合介绍及解决过拟合的方法