Преглед изворни кода

* 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;