Unit dnUtil

Classes

Functions

FakeInheritance -
GetBoolProperty -
GetOrdProperty -
GetProperty - AnyProps = [succ(low(TTypeKind)).
GetStringProperty -
HasProperty -
SetProperty -

Types

Constants

AnyProps
BoolProp
ClassProp
FloatProps
OrdProps
StringProps

Variables


Functions


procedure FakeInheritance(Instance: TObject; FakeClassParent: TClass);


function GetBoolProperty( Instance : TPersistent; const PropName : string; var Value : boolean) : boolean;


function GetOrdProperty( Instance : TPersistent; const PropName : string; PropKind : TTypeKind; var Value : Longint) : boolean;


function GetProperty( Instance : TPersistent; const PropName : string; PropKinds: TTypeKinds; var Value : variant) : boolean;

AnyProps = [succ(low(TTypeKind))..High(TTypeKind)]; <-- this caused some strange compiler error} {$IFNDEF VER80

function GetStringProperty( Instance : TPersistent; const PropName : string; var Value : string) : boolean;


function HasProperty( Instance : TObject; const PropName : string; PropKind : TTypeKinds; var PropInfo : PPropInfo) : boolean;


function SetProperty( Instance : TPersistent; const PropName : string; PropKinds: TTypeKinds; Value : variant) : boolean;


Types


Constants

AnyProps = [low(TTypeKind)..High(TTypeKind)] - [low(TTypeKind)]

BoolProp = [tkEnumeration]

ClassProp = [tkClass]

FloatProps = [tkFloat]

OrdProps = [tkInteger, tkChar, tkEnumeration, tkSet, tkClass]

StringProps = [tkString, tkLString ]

**************************************************************************** some internal Utility routines ******************************************************************************) {$I dnInc.INC

Variables