瀏覽代碼

* fix UnicodeToUtf8 if Dest is nil, patch by Sergei Gorelkin

git-svn-id: trunk@8078 -
Almindor 18 年之前
父節點
當前提交
fdecceebd0
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      rtl/inc/wstrings.inc

+ 1 - 0
rtl/inc/wstrings.inc

@@ -1537,6 +1537,7 @@ function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PWideChar; S
               else
                 inc(j,3);
             end;
+            inc(i);
           end;
       end;
     result:=j+1;