Przeglądaj źródła

rtl: fixed typo in variants.pp noticed by Ivan Shikhalev (mantis #0017983)

git-svn-id: trunk@16368 -
paul 15 lat temu
rodzic
commit
23e74d5d46
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      rtl/inc/variants.pp

+ 1 - 1
rtl/inc/variants.pp

@@ -3590,7 +3590,7 @@ function Null: Variant;       // Null standard constant
 
 procedure VarDispInvokeError;
   begin
-    raise EVariantDispatchError(SDispatchError);
+    raise EVariantDispatchError.Create(SDispatchError);
   end;
 
 { ---------------------------------------------------------------------