paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 10:59:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add a new function UTF8ProperCase() to unit LazUTF8.

Browse Source 
git-svn-id: trunk@56892 -
This commit is contained in:
juha 2017-12-31 08:49:05 +00:00
parent dd5f953aae
commit ed1cd9335d
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/lazutils/lazutf8.pas
View File

@ -130,6 +130,8 @@ function UTF8LowerString(const s: string): string;
function UTF8UpperCase(const AInStr: string; ALanguage: string=''): string;
function UTF8UpperString(const s: string): string;
function UTF8SwapCase(const AInStr: string; ALanguage: string=''): string;
// Capitalize the first letters of every word
function UTF8ProperCase(const AInStr: string; const WordDelims: TSysCharSet): string;
function FindInvalidUTF8Codepoint(p: PChar; Count: PtrInt; StopOnNonUTF8: Boolean = true): PtrInt;
function FindInvalidUTF8Character(p: PChar; Count: PtrInt; StopOnNonUTF8: Boolean = true): PtrInt; deprecated 'Use FindInvalidUTF8Codepoint instead.';
function UTF8StringOfChar(AUtf8Char: String; N: Integer): String;
@ -1229,6 +1231,34 @@ begin
Result[I] := xLowerCase[I];
end;
function UTF8ProperCase(const AInStr: string; const WordDelims: TSysCharSet): string;
var
P, PE : PChar;
CharLen: Integer;
Capital: string;
begin
Result := UTF8LowerCase(AInStr);
UniqueString(Result);
P := PChar(Result);
PE := P+Length(Result);
while (P<PE) do
begin
while (P<PE) and (P^ in WordDelims) do
inc(P);
if (P<PE) then
begin
CharLen := UTF8CodepointSize(P);
SetLength(Capital, CharLen);
System.Move(P^, Capital[1], CharLen); // Copy one codepoint to Capital,
Capital := UTF8UpperCase(Capital); // UpperCase it
System.Move(Capital[1], P^, CharLen); // and copy it back.
Inc(P, CharLen);
end;
while (P<PE) and not (P^ in WordDelims) do
inc(P);
end;
end;
{
AInStr - The input string
ALanguage - The language. Use '' for maximum speed if one desires to ignore the language