十六进制转ascii

2016-08-22 10:22:03来源:http://1274916.blog.51cto.com/1264916/679691作者:panpeng666人点击


var
s : string;
t : string;
begin
s := '36 31 35 20 0E BA D3 C4 CF D0 C2 C3 DC D3 D0 0F 33 30 2D 33 35 0E B6 D6 0F 20 30 34 31 37 20 35 38 36 37 32 34 38 20 0E BA C2 C5 AE CA BF 0F 20 20 23 35 30 37 0E';
while s<>'' do
begin
t:=t+chr(strtoint('$'+copy(s,1,2)));
delete(s,1,3);
end;
end;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台