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

     end;
     Edit3.Text := s;
    end;

    符串中的任意字符转换成小写

    本实例先获取要转换成大写字符在字符串的位置，然后通过Ord()函数来获取字符的ASCII码，用获得的ASCII码与$20进行或运算，得到该字符相对应的小写字母的ASCII码，再用Chr()函数将ASCII码转换成小写字母，再用Copy()函数获取指定字符的前面的字符串和后面的字符串，并按顺序进行连接。运行结果如图5.8所示。

图5.8  将字符串中的任意字符转换成小写

原文转自：http://www.ltesting.net