本文整理自网络,侵删。
function PROPER(S: string): string;
const
Symbols = ' _;.,1234567890';
var
X: Integer;
begin
Result := '';
if Length(s) = 0 then
exit;
S[1] := AnsiUpperCase(s[1])[1];
for X := 1 to length(s) do
if POS(S[x], Symbols) <> 0 then
begin
if X <> Length(s) then
S[x + 1] := AnsiUpperCase(s[x + 1])[1];
end
else
S[x + 1] := AnsiLowerCase(S[x + 1])[1];
Result := S;
end;
//补充:第二种实现方法function ToMixCase(InString: string): string;
var
I: Integer;
begin
Result := LowerCase(InString);
Result[1] := UpCase(Result[1]);
for I := 1 to Length(InString) - 1 do
begin
if (Result[I] = ' ') or (Result[I] = '''') or (Result[I] = '"')
or (Result[I] = '-') or (Result[I] = '.') or (Result[I] = '(') then
Result[I + 1] := UpCase(Result[I + 1]);
end;
end;
相关阅读 >>
Delphi xe5的新功能“ tlistview内置搜索过滤”
Delphi 资源文件管理 resources and images
更多相关阅读请进入《Delphi》频道 >>