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

领测软件测试网

    符串全部大写

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

图5.5  将字符串全部大写

    程序代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     n,i,ls : Integer;
     s,su : String;
     s1 : Char;
    begin
     su := '';
     s := Trim(Edit1.Text);
     n := Length(s);

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