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

領測軟件測試網 關鍵字：delphi delphi/images/2008343249.jpg">

    主要代碼如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     s:String;
     i:Integer;
    begin
     i:=Length(Edit1.Text);
     s:=AnsiMidstr(Edit1.Text,1,1);
     s:=Ansiuppercase(s);
     Edit2.Text:=s+Ansilowercase(AnsiMidstr(Edit1.Text,2,i-1));
    end;

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

TAG: delphi Delphi DELPHI 寶典 技巧 經驗 字符