From 3c18a7f2dd06a6a34341c3b8c6315d80b25d79ae Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 16 Aug 2010 08:08:02 +0000
Subject: [PATCH] LCL: clean up

git-svn-id: trunk@27105 -
---
 lcl/lconvencoding.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/lconvencoding.pas b/lcl/lconvencoding.pas
index aae501a353..7a22c8b8e1 100644
--- a/lcl/lconvencoding.pas
+++ b/lcl/lconvencoding.pas
@@ -5625,7 +5625,7 @@ var
 
   function UTF8CharToCP936(const AChar: string): string;
   begin
-
+    Result:=AChar;
   end;
 
 begin
@@ -5640,6 +5640,7 @@ begin
     if c<#128 then
     begin
       CharStr := c;
+      // ToDo: do not use slow string operations, (see for example UTF8ToUCS2BE)
       Result := Result + UTF8CharToCP936(CharStr);
       inc(Src);
       dec(len);
@@ -5649,6 +5650,7 @@ begin
       CharStr := c;
       Inc(Src);
       CharStr := CharStr + Src^;
+      // ToDo: do not use slow string operations
       Result := Result + UTF8CharToCP936(CharStr);
       inc(Src);
       dec(len, 2);