paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 09:57:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less notes

Browse Source 
git-svn-id: trunk@38398 -
This commit is contained in:
mattias 2012-08-27 10:47:02 +00:00
parent 1dc0e02f6f
commit 8e3f146300
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

@ -2995,6 +2995,7 @@ procedure LazGetLanguageIDs(var Lang, FallbackLang: String);
StrRange.location := 0;
StrRange.length := CFStringGetLength(Ref);
StrSize:=0;
CFStringGetBytes(Ref, StrRange, kCFStringEncodingUTF8,
Ord('?'), False, nil, 0, StrSize);
SetLength(Lang, StrSize);