RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

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

作者:admin 来源: 日期:2018/2/15 17:37:44 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料