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

领测软件测试网

     for i:=1 to n do
     begin
        s1 := char(Ord(s[i])-(Ord('a')-Ord('A')));
       su :=su+s1;
     end;
     Edit2.Text := su;
    end;

    符串全部小写

    本实例是通过字符的ASCII码，将大写字母转换成小写。运行结果如图5.6所示。

文章来源于领测软件测试网 https://www.ltesting.net/