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;

View Code