From db1ea8ca0c691aca18adda73f57e1ecd2fb7df11 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 2 Feb 2012 21:01:49 +0000
Subject: [PATCH] codetools: fixed compilation win32

git-svn-id: trunk@35096 -
---
 components/codetools/fileprocs.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index 5d3aa07bbe..d211f34444 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -2090,8 +2090,8 @@ begin
     vtAnsiString: Result:=Result+AnsiString(Args[i].VAnsiString);
     vtChar: Result:=Result+Args[i].VChar;
     vtPChar: Result:=Result+Args[i].VPChar;
-    vtPWideChar: Result:=Result+UTF8Encode(Args[i].VPWideChar^);
-    vtWideChar: Result:=Result+UTF8Encode(Args[i].VWideChar);
+    vtPWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VPWideChar^));
+    vtWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VWideChar));
     vtWidestring: Result:=Result+UTF8Encode(WideString(Args[i].VWideString));
     vtObject: Result:=Result+DbgSName(Args[i].VObject);
     vtClass: Result:=Result+DbgSName(Args[i].VClass);