paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 03:59:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtf8: Utf8StringOfChar: fix compilation error on Darwin.

Browse Source 
git-svn-id: trunk@42577 -
This commit is contained in:
bart 2013-09-03 15:18:19 +00:00
parent 3b87d7783d
commit 276a50bbd4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazutf8.pas
View File

@ -2453,7 +2453,7 @@ function Utf8StringOfChar(AUtf8Char: Utf8String; N: Integer): Utf8String;
var
i: Integer;
US: UniCodeString;
WC: WideChar;
WC: System.WideChar;
begin
Result := '';
if Utf8Length(AUtf8Char) <> 1 then Exit;