Delphi 首字母转换大写

本文整理自网络，侵删。

 
function TitleCase(const s : string) : string; 
var 
   i : integer; 
begin 
   if s = '' then 
     Result := '' 
   else begin 
     Result := Uppercase(s[1]); 
     for i := 2 to Length(s) do 
       if s[i - 1] = ' ' then 
         Result := Result + Uppercase(s[i]) 
       else 
         Result := Result + Lowercase(s[i]); 
   end; 
end; 
As in: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Edit1.Text := TitleCase('the quick brown fox jumped over the lazy dog'); 
end; 
 

相关阅读 >>

Delphi 加载excel 导入数据库

Delphi.about.com一个钩子的实现代码

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 字符串截取

Delphi tthread中文注释

Delphi fmx手机app，如何下载网站图片而不卡界面

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

Delphi如何给tedit控件加上背景图片

Delphi winapi: isiconic、iszoomed - 分别判断窗口是否已最小化、最大化

Delphi的串口通讯，数据接收实时性太差

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 首字母转换大写