浏览代码

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

git-svn-id: trunk@16368 -
paul 15 年之前
父节点
当前提交
23e74d5d46
共有 1 个文件被更改,包括 1 次插入1 次删除
  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;
 procedure VarDispInvokeError;
   begin
   begin
-    raise EVariantDispatchError(SDispatchError);
+    raise EVariantDispatchError.Create(SDispatchError);
   end;
   end;
 
 
 { ---------------------------------------------------------------------
 { ---------------------------------------------------------------------