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);

文章來源于領測軟件測試網 http://www.kjueaiud.com/