THierarchicalStorage::THierarchicalStorage(const UnicodeString & AStorage) :
FStorage(AStorage),
FKeyHistory(new TStringList())
{
SetAccessMode(smRead);
SetExplicit(false);
// While this was implemented in 5.0 already, for some reason
// it was disabled (by mistake?). So although enabled for 5.6.1 only,
// data written in Unicode/UTF8 can be read by all versions back to 5.0.
SetForceAnsi(false);
SetMungeStringValues(true);
}
ODSPropPath :: ODSPropPath (const ODSPropPath &rcODSPropPath )
: path(NULL),
struct_name(NULL),
order(NULL),
filter(NULL),
acc_mode(PI_undefined),
type(PT_undefined),
collection(NO),
selection(NO)
{
SetPath(rcODSPropPath);
SetAccessMode(rcODSPropPath.acc_mode);
SetCollection(rcODSPropPath.collection);
SetFilter(rcODSPropPath.filter,rcODSPropPath.selection);
}
