فهرست منبع

+ Fixed typo, patch by Colin Western

git-svn-id: trunk@507 -
michael 20 سال پیش
والد
کامیت
fee6627a8a
1فایلهای تغییر یافته به همراه0 افزوده شده و 1 حذف شده
  1. 0 1
      rtl/inc/wstrings.inc

+ 0 - 1
rtl/inc/wstrings.inc

@@ -633,7 +633,6 @@ begin
           Dec(Pointer(S),WideFirstOff);
           if L*sizeof(WideChar)+WideRecLen>MemSize(Pointer(S)) then
               reallocmem(pointer(S), L*sizeof(WideChar)+WideRecLen);
-          end;
           Inc(Pointer(S), WideFirstOff);
         end
 {$endif MSWINDOWS}