From 067d1ab58280c687a644b8610f89197d08a0b5fd Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 30 Dec 2007 22:03:56 +0000
Subject: [PATCH] * Added EPropertyConvertError class

git-svn-id: trunk@9598 -
---
 rtl/objpas/typinfo.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 9f1e36fb46..9c64afb19f 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -306,7 +306,9 @@ Type
   TSetPropValue   = Procedure (Instance: TObject; const PropName: string; const Value: Variant);
   TGetVariantProp = Function (Instance: TObject; PropInfo : PPropInfo): Variant;
   TSetVariantProp = Procedure (Instance: TObject; PropInfo : PPropInfo; const Value: Variant);
-
+  
+  EPropertyConvertError = class(Exception); // Not used (yet), but defined for compatibility.
+  
 Const
   OnGetPropValue   : TGetPropValue = Nil;
   OnSetPropValue   : TSetPropValue = Nil;