Delphi byte[]转换为int

最新推荐文章于 2023-04-11 19:40:07 发布

weixin_30653097

最新推荐文章于 2023-04-11 19:40:07 发布

阅读量445

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zhrong/p/5736393.html

本文提供了三种使用Delphi进行字节数组到整数转换的方法：通过Move函数配合不同大小的整数类型、利用指针直接指向字节数组查看转换结果，以及将字节数组转换为十六进制字符串再转为整数。

Delphi byte[]转换为int

http://bbs.youkuaiyun.com/topics/330082331

1、

var
  buf: array[0..1] of byte;
  bus: array[0..3] of byte;
  si:SmallInt ;
  i:Integer ;
begin
  buf[0] := $01;
  buf[1] := $02;
  bus[0] := $00;
  bus[1] := $01;
  bus[2] := $02;
  bus[3] := $03;

  Move(buf,si,SizeOf(SmallInt) );
  ShowMessage(IntToStr(si));

  Move(bus,i,SizeOf(Integer) );
  ShowMessage(IntToStr(i));

2、

类型转换
用个Integer指针直接指向字节数组就OK了,如果就想看看转换结果的话，MOVE都不用了
var
  buf : array[0..3] of byte;
  Pint:PInteger;
begin
  buf[0] := $00;
  buf[1] := $01;
  buf[2] := $02;
  buf[3] := $03;
  Pint:=@buf[0];
  ShowMessage(IntToStr( Pint^));
end;

3、

var
  buf : array[0..1] of byte;
  bus : array[0..3] of byte;
  function ByteToHex(InByte:byte):shortstring;
    const Digits:array[0..15] of char='0123456789ABCDEF';
  begin
    result:=digits[InByte shr 4]+digits[InByte and $0F];
  end;
  function BinArrayToString(aArray: array of Byte): string;
  var
    i: integer;
  begin
    result:='';
    for i:= Low(aArray) to High(aArray) do
    begin
      result:= result + ByteToHex(aArray[i]);
    end;
    Result:= IntToStr(StrToInt('$'+result));
  end;
begin
  buf[0] := $01;
  buf[1] := $02;
  showmessage(BinArrayToString(buf));
  bus[0] := $00;
  bus[1] := $01;
  bus[2] := $02;
  bus[3] := $03;
  showmessage(BinArrayToString(bus));
end;