첫번째 영문을 대문자 변경

첫번째 영문을 대문자 변경

728x90

 

 

function TitleCase(const str: string): string;

var

newword: boolean; i: integer;

c: char;

begin

newword := true;

result := Lowercase(str);

 

for i := 1 to Length(result) do

begin

c := result[i];

if c in ['a'..'z'] then

begin

if newword then

begin

result[i] := UpCase(c);

newword := false;

end;

end

else

if not (c in ['0'..'9']) then

newword := true;

end;

end;