paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds the german beta to uppercase

Browse Source 
git-svn-id: trunk@32738 -
This commit is contained in:
sekelsenmat 2011-10-07 09:54:36 +00:00
parent 675c9a516b
commit d2ff6af4c5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazutils/lazutf8.pas
View File

@ -1206,6 +1206,7 @@ begin
// Major processing // Major processing
case OldChar of case OldChar of
// Latin Characters 0000–0FFF http://en.wikibooks.org/wiki/Unicode/Character_reference/0000-0FFF // Latin Characters 0000–0FFF http://en.wikibooks.org/wiki/Unicode/Character_reference/0000-0FFF
$C39F: NewChar := $5353; // ß => SS
$C3A0..$C3BD: NewChar := OldChar - $20; $C3A0..$C3BD: NewChar := OldChar - $20;
$C3BE: NewChar := $C5B8; // ÿ $C3BE: NewChar := $C5B8; // ÿ
$C481..$C4B7: if OldChar mod 2 = 1 then NewChar := OldChar - 1; $C481..$C4B7: if OldChar mod 2 = 1 then NewChar := OldChar - 1;