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