Delphi byte[]ת»»Îªint

buf : array[0..1] of byte;

buf[0] := $01;
buf[1] := $02;


bus : array[0..3] of byte;

bus[0] := $00;
bus[1] := $01;
bus[2] := $02;
bus[3] := $03;

Ôõô°ÑÊý×ébufºÍbusת»»ÎªsmallintºÍintegerÀàÐÍ£¿¶àл£¡£¡

---

Delphi(Pascal) code:
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;

---

//Õâ¸öÓ¦¸Ã¾Í¿ÉÒÔÁË¡£
var
  buf : array[0..1] of byte;
  bus : array[0..3] of byte;
  i:smallint;
  j:integer;
begin
  buf[0] := $01;
  buf[1] := $02;
  move(buf[0],i,2);

  bus[0] := $00;
  bus[1] :