• 测试技术
  • 博客
  • 视频
  • 开源
  • 论坛
  • 沙龙
  • 下载
  • 杂志
  • 招聘

字号: | 推荐给好友 上一篇 | 下一篇

Delphi开发经验技巧宝典:字符中的转换[3]

发布: 2008-5-21 13:24 | 作者: 不详 | 来源: csai | 查看: 64次 | 进入领测软件测试网论坛讨论

领测软件测试网 软件测试技术网&vo%z'iyE'K

    主要代码如下: 软件测试技术网*U c:Yk|Dz
    function TForm1.ToLower(ch: char): char;
k-M,X4qo$L    begin
1b-q8U.[zF*Q(a6qK     Result := Chr(Ord(ch) or $20); 软件测试技术网}Dj$lY0g