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

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

http://developcsaicn/delphi/images/jpg>
圖  將字符串首字母大寫

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     s:String;
     i:Integer;
    begin
     i:=Length(EditText);
     s:=AnsiMidstr(EditText);
     s:=Ansiuppercase(s);
     EditText:=s+Ansilowercase(AnsiMidstr(EditTexti));
    end;

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

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