关于in64的数据组合分解

Question

数据分解

Answer 1

function MakeInt64(L,H:Cardinal):Int64;
var
  LI: Large_Integer;
begin
  LI.LowPart := L;
  LI.HighPart := H;
  Result := LI.QuadPart;
end;function HiLong(N:Int64):Cardinal;
begin
  Result := Large_Integer(N).HighPart;
end;Function LowLong(N:Int64):Cardinal;
begin
  Result := Large_Integer(N).LowPart;
end;

Answer 2

function MakeInt64(L,H:Cardinal):Int64;
asm
end;function HiLong(N:Int64):Cardinal;
begin
  Result := PULargeInteger(@N)^.HighPart;
end;Function LowLong(N:Int64):Cardinal;
begin
  Result := PULargeInteger(@N)^.LowPart;
end;