专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
在做跟手机短信相关的东东时候常遇到各种编码格式数据的转换,特写了几个函数,供参考。function EncodeEnglish(var s:string):string;var i,j,len:Integer; cur:Integer; t:String; begin Result:=\'\';len:=Length(s); //j 用于移位计数 i:=1;j:=0; while i<=len do begin if i<len then//数据变换cur:=(ord(s[i]) shr j) or ((ord(s[i+ [阅读全文] [PDF]
1 共1条 分1页