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 数据库重置用户密码制作

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi android 平台加载文件

Delphi webbrowser1 querystatuswb

Delphi ado通用操作数据单元

Delphi 字符串替换函数[单元文件 sysutils]

Delphi里label显示多行文本的两种方法

Delphi通过解析搜狐网页来获取天气的函数

Delphi 取bmp图片宽高

Delphi 根据磁盘盘符获取简单的硬盘编号

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

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