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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...