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

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

     end;
     EditText := s;
    end;

    符串中的任意字符轉換成小寫

    本實例先獲取要轉換成大寫字符在字符串的位置然後通過Ord()函數來獲取字符的ASCII碼用獲得的ASCII碼與$進行或運算得到該字符相對應的小寫字母的ASCII碼再用Chr()函數將ASCII碼轉換成小寫字母再用Copy()函數獲取指定字符的前面的字符串和後面的字符串並按順序進行連接運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  將字符串中的任意字符轉換成小寫

    主要代碼如下
    function TFormToLower(ch: char): char;
    begin
     Result := Chr(Ord(ch) or $);
    end;
    procedure TFormButtonClick(Sender: TObject);
    var
     sp : String;
     ij : Integer;
    begin
     p := EditText;
     s := ;
     j := ;
     for i:= to Length(p) do
     begin
      if p[i]=EditText then
      begin
       if i= then
        s := s+ToLower(p[i])
       else
        s := s+Copy(pjij)+ToLower(p[i]);
       j := i+;
      end;
     end;
     if j<=i then
      s := s+Copy(pjij);
     EditText := s;
    end;

    符串首字母大寫

    本實例是用AnsiMidstr()函數來獲取字符串中的首字母並用Ansiuppercase()函數將其轉換成大寫字母再與首字母後的字符串相聯接運行結果如圖所示

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

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