delphi - Delphi -> 字节数组到 LongInt

Question

我想从

Source : Array[0..500] of Byte;

在哪里

c : integer; // Start Point

至

v : LongInt;

但

Move(Source[c], v, 4);

只给我 1 个字节。我的错在哪里？

再次感谢。

Answer 1

这个来源工作得很好。c但是，如果只有第一个字节（索引处的那个）包含除 之外的值，它可能看起来只返回一个字节0。

Sertac Akyuz 已经提出了这种替代方案，也可以正常工作：

v := PLongInt(@Source[c])^;

Answer 2

我怀疑移动失败了：

试试这个代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  source: array[0..500] of Byte;
  C: Integer;
  V: LongInt;
begin
  source[0] := $55;
  source[1] := $55;
  source[2] := $55;
  source[3] := $55;
  C := 0;
  Move(Source[C], V, SizeOf(V));
  ShowMessage(IntToStr(V));
end;

您将在消息中看到数字 1431655765 ($55555555)。