Delphi開發經驗技巧寶典：字符中的轉換[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    字轉換成字符串

    本實例是用InttoStr()函數將指定的數字轉換成字符串

    程序代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     i:Integer;
     s:String;
    begin
     i:=;
     s:=IntToStr(i);
     ShowMessage(s);
    end;

    符串全部大寫

    本實例是通過字符的ASCII碼將小寫字母轉換成大寫的運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  將字符串全部大寫

    程序代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     nils : Integer;
     ssu : String;
     s : Char;
    begin
     su := ;
     s := Trim(EditText);
     n := Length(s);
     for i:= to n do
     begin
        s := char(Ord(s[i])(Ord(a)Ord(A)));
       su :=su+s;
     end;
     EditText := su;
    end;

    符串全部小寫

    本實例是通過字符的ASCII碼將大寫字母轉換成小寫運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  將字符串全部小寫

right>[]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/8485.html