CHAR和HEX互相转换

最新推荐文章于 2024-03-04 16:46:19 发布
xp1798
最新推荐文章于 2024-03-04 16:46:19 发布
阅读量8k
点赞数
文章标签： delphi
 
      Function  
      StrToHexStr( 
      Const  
      S:  
      String 
      ):  
      String 
      ;  
      //字符串转换成16进制字符串(方法一)  
     
 
      Var 
     
 
         
      I:  
      Integer 
      ;  
     
 
      Begin 
     
 
         
      For  
      I :=  
      1  
      To  
      Length(S)  
      Do 
     
 
         
      Begin 
     
 
           
      If  
      I =  
      1  
      Then 
     
 
             
      Result := IntToHex(Ord(S[ 
      1 
      ]),  
      2 
      )  
     
 
           
      Else  
      Result := Result +  
      ' '  
      + IntToHex(Ord(S[I]),  
      2 
      );  
     
 
         
      End 
      ;  
     
 
      End 
      ;  
     

         
     
 
      function  
      strToHexStr(str: 
      string 
      ): 
      string 
      ;  
      //字符串转换成16进制字符串(方法二)   
     
 
      var 
     
 
      c: 
      char 
      ;   
     
 
      ss: 
      string 
      ;   
     
 
      begin 
     
 
      while  
      str<> 
      ''  
      do  
      begin 
     
 
      c:=str[ 
      1 
      ];   
     
 
      ss:=ss+format( 
      '%0x' 
      ,[ord(c)]);   
     
 
      delete(str, 
      1 
      , 
      1 
      );   
     
 
      end 
      ;   
     
 
      strtohexStr:= ss;   
     
 
      end 
      ;   
     

         
     
 
      Function  
      HexStrToStr( 
      Const  
      S:  
      String 
      ):  
      String 
      ;  
      //16进制字符串转换成字符串  
     
 
      Var 
     
 
         
      t:  
      Integer 
      ;  
     
 
         
      ts:  
      String 
      ;  
     
 
         
      M, Code:  
      Integer 
      ;  
     
 
      Begin 
     
 
         
      t :=  
      1 
      ;  
     
 
         
      Result :=  
      '' 
      ;  
     
 
         
      While  
      t <= Length(S)  
      Do 
     
 
         
      Begin 
     
 
           
      While  
      (t <= Length(S))  
      And  
      ( 
      Not  
      (S[t]  
      In  
      [ 
      '0' 
      .. 
      '9' 
      ,  
      'A' 
      .. 
      'F' 
      ,  
      'a' 
      .. 
      'f' 
      ]))  
      Do 
     
 
             
      Inc(t);  
     
 
           
      If  
      (t +  
      1  
      > Length(S))  
      Or  
      ( 
      Not  
      (S[t +  
      1 
      ]  
      In  
      [ 
      '0' 
      .. 
      '9' 
      ,  
      'A' 
      .. 
      'F' 
      ,  
      'a' 
      .. 
      'f' 
      ]))  
      Then 
     
 
             
      ts :=  
      '$'  
      + S[t]  
     
 
           
      Else 
     
 
             
      ts :=  
      '$'  
      + S[t] + S[t +  
      1 
      ];  
     
 
           
      Val 
      (ts, M, Code);  
     
 
           
      If  
      Code =  
      0  
      Then 
     
 
             
      Result := Result + Chr(M);  
     
 
           
      Inc(t,  
      2 
      );  
     
 
         
      End 
      ;  
     
 
      End 
      ;  
     