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 圆角panel

Delphi 弹出带黄色感叹号对话框提醒

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi base64编码/解码及zlib压缩/解压

Delphi 获取计算机串口列表

Delphi windows的消息传递--消息盒子

Delphi 注入不用writeprocessmemory 函数

Delphi listbox自动获取列表框中的组件焦点

Delphi 关于access的日期类型字段比较的一点认识

Delphi 使用onvalidate事件或onvalidating事件验证在输入字段（tedit）中输入的值

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

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