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 memo1删除前n行

检查是否在Delphi xe7中启用或禁用了android蓝牙

Delphi 删除动态数组的指定元素

Delphi 控制窗口显示隐藏

Delphi xe5 for android 调用java类库必看的文件

Delphi xe5 android 设置权限

Delphi 感染u盘

Delphi编程实现sql server挂起清除

Delphi实现qq右下角弹出信息窗口

Delphi串口通信编程

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

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