zoukankan      html  css  js  c++  java
  • Delphi Byte与数据类型之间的转换

    
    

    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;
  • 相关阅读:
    C#遍历List并删除某个或者几个元素的方法
    7月清北学堂培训 Day 4
    7月清北学堂培训 Day 3
    7月清北学堂培训 Day 2
    7月清北学堂培训 Day 1
    P1383 高级打字机
    P2401 不等数列
    P1412 经营与开发
    P1314 聪明的质监员
    2019.7.9 校内测试 T3 15数码问题
  • 原文地址:https://www.cnblogs.com/zhrong/p/5736495.html
Copyright © 2011-2022 走看看