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

delphi/images/2008343249.jpg">
图5.9  将字符串首字母大写

    主要代码如下：
    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;

• Delphi开发经验技巧宝典：字符中的转换[3]
• Delphi开发经验技巧宝典：字符中的转换[2]
• Delphi开发经验技巧宝典：字符中的转换[1]
• Delphi开发技巧：ASCII码与编码转换[2]
• Delphi开发技巧：ASCII码与编码转换[1]

请您注意
1、遵守中华人民共和国的各项有关法律规定
2、承担一切因您的行为而导致的法律责任
3、本网留言管理人员有权删除其管辖留言内容
4、您在本网的留言本网有权在网站内转载和引用
5、参与本留言即表明您已经阅读并接受上述条款