delphi Int64Rec 应用实例

以下代码可以看到 Int64Rec <--> Int64
procedure TForm1.Button2Click(Sender: TObject);
var ii1,ii2,ii3:Int64;Hi,Lo:Cardinal;temp:Int64Rec;
begin
  ii1 := 123456;
  Hi := Int64Rec(ii1).Hi;
  Lo := Int64Rec(ii1).Lo;
  ii2 := MakeROP4(Lo,Hi); // 这个函数没有什么实质的意义，只是为了表达 Hi + Lo = Int64
  if ii1 = ii2 then
    ShowMessage('确认');
  if CompareMem(@ii1,@ii2,1) then
    ShowMessage('CM确认');
  temp.Hi := Hi;
  temp.Lo := Lo;
  ii3 := Int64(temp);
  if ii1 = ii3 then
    ShowMessage('再次确认');
end;