From d69c951230be169e14f2c29a46671e7f27899634 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Mon, 13 Jun 2016 09:28:03 +0000 Subject: [PATCH] Fixes compilation with FPC 2.6 git-svn-id: trunk@52498 - --- components/lazutils/winlazutf8.inc | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/components/lazutils/winlazutf8.inc b/components/lazutils/winlazutf8.inc index 77ef7cd2df..9f748aba3c 100644 --- a/components/lazutils/winlazutf8.inc +++ b/components/lazutils/winlazutf8.inc @@ -355,7 +355,11 @@ begin if L > 0 then begin Result:=''; + {$IF FPC_FULLVERSION >= 30000} widestringmanager.Wide2AnsiMoveProc(PWideChar(@Buf[0]),Result,CP_UTF8,L-1); + {$ELSE} + widestringmanager.Wide2AnsiMoveProc(PWideChar(@Buf[0]),Result,CP_UTF8); + {$ENDIF} end else Result := Def;