您的位置:首页 > 编程语言 > Delphi

Delphi Byte与数据类型之间的转换

2020-06-21 00:56 459 查看 https://blog.csdn.net/sczhf/ar

procedure TForm1.FormCreate(Sender: TObject);type    TByteArr = array [0..1] of Byte;    PByteArr = ^TByteArr;var  Bytes: TBytes;  buf,buf2: TByteArr;  cmd,n_10: string;  Len: Integer;  c: char;  n_int:ushort;  w:Word;  {Ushort : word}begin    cmd:= 'F';    n_int:= 513;                 {0000 0010 0000 0001 }    c:= '1';    Bytes := TEncoding.ASCII.GetBytes(cmd);  {将string类型中的字符转ASCII}    Len := Length(Bytes);    cmd:= IntToHex(n_int,2);       {将int类型转出16进制字符串}    {1}    Move(n_int,buf,SizeOf(n_int));  {将int 转 Buff}    {2}    buf2:= PByteArr(@n_int)^;end;procedure TForm1.RzButton1Click(Sender: TObject);
var
  buf: array[0..1] of byte;
  bus: array[0..3] of byte;
  si:SmallInt ;
  i:Integer ;
  w1,w2:Word;    //two bytes represent a word, not an integer
begin                       {定义Byte,并写入数据}
  buf[0] := $01;
  buf[1] := $02;          {0000 0010 0000 0001 }
  bus[0] := $00;
  bus[1] := $01;
  bus[2] := $02;
  bus[3] := $03;
{1}
  Move(buf,si,SizeOf(SmallInt) );
  ShowMessage(IntToStr(si));
{2}
  WordRec(w1).Lo:= buf[0];
  WordRec(w1).Hi:= buf[1];
  w2:= PWORD(@buf)^;
{3}
  Move(bus,i,SizeOf(Integer) );
  ShowMessage(IntToStr(i));
end;

procedure TForm1.RzButton2Click(Sender: TObject);
var
  a: array[0..7] of Byte;
  d1, d2: Double;
begin
  d1 := 123.456;
  fillchar(a, 8, 0);     {fillchar}
  Move(d1, a, 8);
  Move(a, d2, 8);
  ShowMessage(FloatToStr(d2));
end;

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: