delphi 英文单词第一个字母大写

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;

推荐分享