怎么把一个符串转换成16进制数据.doc

《怎么把一个符串转换成16进制数据.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、怎么把一个字符串转换成16进制数据,然后再把16进制数转成字符串?unitBinHexTools;interfacefunctionHexToBin(HexNr:string):string;//把十六进制字符串转换为二进制字符串functionHexCharToInt(HexToken:char):Integer;//转换一个十六进制字符为整数functionHexCharToBin(HexToken:char):string;//转换一个十六进制字符为二进制字符串functionpow(base,power:integer):integer;//指数函数functionBinS

2、trToInt(BinStr:string):integer;//把二进制字符串转换为整数functionDecodeSMS7Bit(PDU:string):string;//解码一个7-bitSMS(GSM03.38)为ASCII码functionReverseStr(SourceStr:string):string;//反转一个字符串implementationusessysutils,dialogs; functionHexCharToInt(HexToken:char):Integer; begin  {ifHexToken>#97thenHexToken:=Chr(Ord

3、(HexToken)-32);  {uselowercaseaswell} Result:=0; if(HexToken>#47)and(HexToken<#58)then{chars0....9} Result:=Ord(HexToken)-48 elseif(HexToken>#64)and(HexToken<#71)then{charsA....F} Result:=Ord(HexToken)-65+10;end;functionHexCharToBin(HexToken:char):string;varDivLeft:integer;begin DivLeft:=HexCh

4、arToInt(HexToken);{firstHEX->BIN} Result:=''; {Usereversedividing} repeat{Trick;divideby2} ifodd(DivLeft)then{result=odd?thenbit=1} Result:='1'+Result{result=even?thenbit=0} else Result:='0'+Result; DivLeft:=DivLeftdiv2;{keepdividingtill0leftandlength=4} until(DivLeft=0)and(length(Result)=4);{

5、1token=nibble=4bits}end;functionHexToBin(HexNr:string):string; {onlystringsizeislimitofbinnr} varCounter:integer; begin Result:='';  forCounter:=1tolength(HexNr)do Result:=Result+HexCharToBin(HexNr[Counter]);end;functionpow(base,power:integer):integer; varcounter:integer; begin  Result:=1;  fo

6、rcounter:=1topowerdo  Result:=Result*base; end; functionBinStrToInt(BinStr:string):integer; varcounter:integer; begin  iflength(BinStr)>16then  raiseERangeError.Create(#13+BinStr+#13+  'isnotwithinthevalidrangeofa16bitbinary.'+#13);  Result:=0;  forcounter:=1tolength(BinStr)do  ifBinStr[Counte

7、r]='1'then  Result:=Result+pow(2,length(BinStr)-counter); end; functionDecodeSMS7Bit(PDU:string):string; varOctetStr:string;  OctetBin:string;  Charbin:string;  PrevOctet:string;  Counter:integer;  Counter2:integer; begin  PrevOctet:=''