在Delph中如何Byte转化Sring

解决方案 »

  1.   

    var
      a:byte;
      s:string;
    begin
      s:=chr(a);
    end
      

  2.   

    这是效率最高的
    function ByteToHex(Src: Byte):String;
    begin
      SetLength(Result, 2);
      asm
        MOV         EDI, [Result]
        MOV         EDI, [EDI]
        MOV         AL, Src
        MOV         AH, AL          // Save to AH
        SHR         AL, 4           // Output High 4 Bits
        ADD         AL, "0"
        CMP         AL, "9"
        JBE         @@OutCharLo
        ADD         AL, "A"-"9"-1
    @@OutCharLo:
        AND         AH, $f
        ADD         AH, "0"
        CMP         AH, "9"
        JBE         @@OutChar
        ADD         AH, "A"-"9"-1
    @@OutChar:
        STOSW
      end;
    end;
      

  3.   

    是byte还是byte Array,要怎么转换?是希望显示byte的数值还是把它的数值当作某个字符的ascii,然后在string当中存储该字节?
      

  4.   

    如何还原。即:如何将string转为byte?