From e1b8857eaec0f2c76edcbfb4edc2142cc4e81f46 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 7 Oct 2011 14:20:38 +0000
Subject: [PATCH] Fixes pointer error for turkish

git-svn-id: trunk@32753 -
---
 components/lazutils/lazutf8.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/lazutils/lazutf8.pas b/components/lazutils/lazutf8.pas
index 2344362f9e..5d02b2f5a6 100644
--- a/components/lazutils/lazutf8.pas
+++ b/components/lazutils/lazutf8.pas
@@ -1190,6 +1190,7 @@ begin
       if IsTurkish and (AInStr[InCounter] = 'I') then
       begin
         SetLength(Result,Length(Result)+1);// Increase the buffer
+        OutStr := PChar(Result);
         OutStr[OutCounter]:=#$C4;
         OutStr[OutCounter+1]:=#$B1;
         inc(InCounter);