Delphi开发经验技巧宝典:字符中的转换[4]

发表于:2008-05-21来源:作者:点击数: 标签:DELPHI字符宝典Delphi技巧
关键字: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.ltesting.net