فهرست منبع

* VarUtils, fixed a wrong identifier

git-svn-id: trunk@16524 -
sergei 14 سال پیش
والد
کامیت
ddfb032913
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      rtl/objpas/cvarutil.inc

+ 1 - 1
rtl/objpas/cvarutil.inc

@@ -769,7 +769,7 @@ begin
           Result := vDouble;
           Result := vDouble;
         end;
         end;
         varDate     : begin
         varDate     : begin
-          if (varDate > MaxCurrency) or (varDate < MinCurrency) then
+          if (vDate > MaxCurrency) or (vDate < MinCurrency) then
             VariantTypeMismatch(vType, varCurrency);
             VariantTypeMismatch(vType, varCurrency);
           Result := vDate;
           Result := vDate;
         end;
         end;