Delphi中将array[0..3] of byte转化成integer， 在线等候!

Question

马上解决马上给分

Answer 1

VOID CopyMemory (PVOID Destination, CONST VOID * Source,DWORD Length)

Answer 2

这个简单
var
  a: array [0..3] of byte;
  i: integer;
begin
  a[0]:= 99;
  a[1]:= 0;
  a[2]:= 0;
  a[3]:= 0;
  i:= integer(a);  //  Caption:= IntToStr(i);

Answer 3

type
  TAAAA = record
  case BBBB: Boolean of
    True: (a: array[0..3]of byte);
    False: (b: integer);
end;var
  Test : TAAAA;
begin
  Test.a[0] := 99;
  Test.a[1] := 0;
  Test.a[2] := 0;
  Test.a[3] := 0;
  Caption := IntToStr(Test.b);
end;

Answer 4

假设是Buf : array[0..1023] of byte;
  FillChar(Buf,sizeof(Buf),0)
把前四位转换成int

Answer 5

integer(buf) 就行了
他会把前4个字节当整数的

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
    value : array [0..100] of byte;
    i : Integer;
begin
    value[0] := 1;
    value[1] := 2;
    value[2] := 3;
    value[3] := 4;
    i := Integer(value);
    ShowMessage(IntToStr(i));end;To : Pazee 为什么编译通不过呀，在闷人吧？

Answer 7

type
  TAAAA = record
  case BBBB: Boolean of
    True: (a: array[0..3]of byte);
    False: (b: integer);
end;var
  Test : TAAAA;
begin
  Test.a[0] := 0;
  Test.a[1] := 0;
  Test.a[2] := 0;
  Test.a[3] := 0;
  Caption := IntToStr(Test.b);
             ^^^^^^^^^^^^^^^^^得到的结果不对呀，应该Test.b = 0 呀
end;

Answer 8

var
a:array[0..3] of byte;
j,i,k:integer;
begin
  i:=0;
  for j:=0 to 3 do
  begin
    k:=a[j];
    i:=i+(k shl (8*j));
  end;
end;

Answer 9

type
T3BArray=array[0..3] of byte;////////////////////////////function ArrayToInt(A:T3BArray):integer;
var
j,k:integer;
begin
  result:=0;
  for j:=0 to 3 do
  begin
    k:=a[j];
    result:=result+(k shl (8*j));
  end;
end;

Answer 10

var
    value : array [0..100] of byte;
               ~~~~~~~~~~~~~~~~~~~~这么大，integer能够放下吗？
 ktsmallghost(smallghost你也菜的可以了
    i : Integer;

Answer 11

有这么复杂吗？Buf : array[0..1023] of byte;type PInteger = ^Integer;var IntVal: Integer;IntVal := (PInteger(@Buf))^; //开头 4 个 -> integerIntVal := (PInteger(@Buf[i]))^; //从 i 开始的 4 个 -> integer================================================================
人生最大的幸福莫过于顿顿有玉米吃
（CSDN 论坛助手，挺好使！俺们拨号上网的有福了）

Answer 12

俺楼上的说的对================================================================
人生最大的幸福莫过于顿顿有玉米吃
（CSDN 论坛助手，挺好使！俺们拨号上网的有福了）

Answer 13

to: ktsmallghost(smallghost) 
别老看比编译的错误，看看原因。var
    value : array [0..3] of byte;
    i : Integer;
begin
    value[0] := 1;
    value[1] := 2;
    value[2] := 3;
    value[3] := 4;
    i := Integer(pointer(value));
                 ~~~~~~~
    ShowMessage(IntToHex(i, 4));
end;变成空指针就行了。