delphi - 找不到用于拆分 Longint 的搜索词

Question

我不知道用于搜索的词。

我有一个四字节的 LongInt，我需要将前两个字节的值作为整数获取，并将最后两个字节的值作为另一个整数获取。

这里有一个老屁的内存时刻。 :)

我猜这与最不重要和最重要有关，但一个很好的搜索词正在暗示我。

Answer 1

有很多不同的方法可以解决这个问题:

uses
  Windows;

var
  Value : Longint;
  l : Word;
  h : Word;
begin
  Value := ...;
  l := LOWORD(Value);
  h := HIWORD(Value);
end;  

uses
  SysUtils;

var
  Value : Longint;
  l : Word;
  h : Word;
begin
  Value := ...;
  l := LongRec(Value).Lo;
  h := LongRec(Value).Hi;
end;

var
  Value : Longint;
  l : Word;
  h : Word;
begin
  Value := ...;
  l := Word(Value);
  h := Word(Value shr 16);
end;