Chinaunix首页 | 论坛 | 博客
  • 博客访问: 15273137
  • 博文数量: 2005
  • 博客积分: 11986
  • 博客等级: 上将
  • 技术积分: 22535
  • 用 户 组: 普通用户
  • 注册时间: 2007-05-17 13:56
文章分类

全部博文(2005)

文章存档

2014年(2)

2013年(2)

2012年(16)

2011年(66)

2010年(368)

2009年(743)

2008年(491)

2007年(317)

分类:

2007-05-25 08:35:54

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;

阅读(4391) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~