paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added EPropertyConvertError class

Browse Source 
git-svn-id: trunk@9598 -
This commit is contained in:
michael 2007-12-30 22:03:56 +00:00
parent a375df54f2
commit 067d1ab582
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/typinfo.pp
View File

@ -306,7 +306,9 @@ Type
TSetPropValue = Procedure (Instance: TObject; const PropName: string; const Value: Variant); TSetPropValue = Procedure (Instance: TObject; const PropName: string; const Value: Variant);
TGetVariantProp = Function (Instance: TObject; PropInfo : PPropInfo): Variant; TGetVariantProp = Function (Instance: TObject; PropInfo : PPropInfo): Variant;
TSetVariantProp = Procedure (Instance: TObject; PropInfo : PPropInfo; const Value: Variant); TSetVariantProp = Procedure (Instance: TObject; PropInfo : PPropInfo; const Value: Variant);
EPropertyConvertError = class(Exception); // Not used (yet), but defined for compatibility.
Const Const
OnGetPropValue : TGetPropValue = Nil; OnGetPropValue : TGetPropValue = Nil;
OnSetPropValue : TSetPropValue = Nil; OnSetPropValue : TSetPropValue = Nil;