Ver código fonte

* fixed RunErrorToExcept for EControlC and EPrivilege

git-svn-id: trunk@5499 -
Vincent Snijders 18 anos atrás
pai
commit
c4b458b2f0
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      rtl/objpas/sysutils/sysutils.inc

+ 2 - 2
rtl/objpas/sysutils/sysutils.inc

@@ -293,8 +293,8 @@ begin
   214 : E:=EBusError.Create(SBusError);
   215 : E:=EIntOverflow.Create(SIntOverflow);
   216 : E:=EAccessViolation.Create(SAccessViolation);
-  217 : E:=EPrivilege.Create(SPrivilege);
-  218 : E:=EControlC.Create(SControlC);
+  217 : E:=EControlC.Create(SControlC);
+  218 : E:=EPrivilege.Create(SPrivilege);
   219 : E:=EInvalidCast.Create(SInvalidCast);
   220 : E:=EVariantError.Create(SInvalidVarCast);
   221 : E:=EVariantError.Create(SInvalidVarOp);