From 3a5895be0fcbdc2099aba42942e393c80838dbeb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 30 Sep 2005 08:30:44 +0000
Subject: [PATCH] * StringToWideChar fixed

git-svn-id: trunk@1236 -
---
 rtl/inc/wstrings.inc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index 7101ee99e2..5a30e71da0 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -682,9 +682,11 @@ function StringToWideChar(const Src : AnsiString;Dest : PWideChar;DestSize : Siz
   begin
      widestringmanager.Ansi2WideMoveProc(PChar(Src),temp,Length(Src));
      if Length(temp)<DestSize then
-       move(temp[1],Dest^,Length(temp))
+       move(temp[1],Dest^,Length(temp)*SizeOf(WideChar))
      else
-       move(temp[1],Dest^,destsize);
+       move(temp[1],Dest^,(DestSize-1)*SizeOf(WideChar));
+
+     Dest[DestSize-1]:=#0;
 
      result:=Dest;