Delphi-在Int64中加入2个整数

Question

我正在使用Delphi和Assembly ，所以我遇到了问题。 我在汇编中使用了一个指令（ RDTSC ）来获取64位读取时间戳，该指令将数字分别放在两个寄存器EAX和EDX 。 没关系，我可以用Delphi Integer变量得到它。 但是现在，我需要以64位中的1个加入这些变量。 就像是：

Var1 = 46523
var2 = 1236

因此，我需要将其放入一个变量中，例如：

Var3 = 465231236

它就像一个StrCat，但我不知道该怎么做。 有人可以帮助我吗？

Answer 1

您当然不想连接两个值的十进制字符串表示形式。 这不是将RTDSC返回的两个32位值RTDSC为64位值的方式。

将46523和1236结合使用不会得出465231236。这是错误的答案。 相反，您希望采用高阶32位，并将它们与低阶32位并排放置。

您正在组合$0000B5BB和$00004D4 。 正确答案是$0000B5BB00004D4或$00004D40000B5BB ，这取决于两个值中的哪一个是高阶和低阶部分。

例如，使用Int64Rec在代码中实现：

var
  Value: UInt64;
...
Int64Rec(Value).Lo := Lo;
Int64Rec(Value).Hi := Hi;

其中Lo和Hi是RTDSC返回的低32位值和高32位值。

因此，将位0到31设置为Lo的值，将位32到63设置为Hi的值。

或者可以使用按位操作来编写它：

Value := (UInt64(Hi) shl 32) or UInt64(Lo);

如果您需要做的只是读取时间戳计数器，那么您无需执行任何操作。 您可以实现如下功能：

function TimeStampCounter: UInt64;
asm
  RDTSC
end;

寄存器调用约定要求将64位值的返回值传递回EDX:EAX的调用方。 由于RDTSC将值放置在这些确切的寄存器中（顺便说一句，不是巧合），因此您无需执行其他操作。

TStopWatch ，通常最好使用性能计数器，而不是使用时间戳计数器，性能计数器由System.Diagnostics的TStopWatch包装。

Answer 2

简单的方法是使用记录

type
  TMyTimestamp = record
    case Boolean of
      true:
        ( Value: Int64 );
      false:
        ( Value1: Integer; Value2: Integer );
  end;

您可以根据需要存储/读取每个值

var
  ts: TMyTimestamp;
begin
  ts.Value1 := 46523;
  ts.Value2 := 1236;
  WriteLn( ts.Value ); // -> 5308579624379

  ts.Value := 5308579624379;
  WriteLn( ts.Value1 ); // -> 46523
  WriteLn( ts.Value2 ); // -> 1236
end;

请参阅： Docwiki：记录中的变体部分