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

lazutils: fixed lazunicode compile under Delphi

Browse Source 
git-svn-id: branches/fixes_1_8@54808 -
This commit is contained in:
mattias 2017-05-03 11:25:56 +00:00
parent 8a85928884
commit c79ff882eb
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/lazunicode.pas
View File

@ -45,7 +45,7 @@ uses
function CodePointLength(const s: string): NativeInt; inline;
function CodePointPos(const SearchForText, SearchInText: string; StartPos: NativeInt = 1): NativeInt; inline;
function CodePointSize(p: PChar): integer; inline;
function IsCombining(const AChar: PChar): Boolean; inline;
function IsCombining(const AChar: PChar): Boolean; {$IFDEF FPC}inline;{$ENDIF}
function UnicodeToWinCP(const s: string): AnsiString;
function WinCPToUnicode(const s: AnsiString): string;