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.ltesting.net