本文整理自网络,侵删。
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 xe7实现获取程序是否已管理员模式运行以及运行的windows用户名
Delphi 注入不用writeprocessmemory 函数
Delphi 使用onvalidate事件或onvalidating事件验证在输入字段(tedit)中输入的值
更多相关阅读请进入《Delphi》频道 >>