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>] []