Class THydrogeologicUnits

Unit

HufDefinition

Declaration

type THydrogeologicUnits = class(TLayerOwnerCollection)

Description

TLayerOwnerCollection is a TEnhancedOrderedCollection that stores of list of TDataArrays that it can delete. The list (NewDataSets) is not created by the TLayerOwnerCollection. Instead another class creates it and assigns it to TLayerOwnerCollection. TUndoChangeLgrPackageSelection is an example of a class that assigns NewDataSets.

When a new TDataArray is created, it should be added to NewDataSets using AddOwnedDataArray; In DoCommand, ClearNewDataSets should be called before the TDataArrays are created. In Undo, RemoveNewDataSets should be called;

Hierarchy

• TCollection
• TOrderedCollection
• TEnhancedOrderedCollection
• TLayerOwnerCollection
• THydrogeologicUnits

Overview

Methods

	function GetItems(Index: integer): THydrogeologicUnit;
	procedure SetItems(Index: integer; const Value: THydrogeologicUnit);
	constructor Create(Model: TBaseModel);
	procedure RenameParameters(const OldName, NewName: string);
	function GetUnitByName(UnitName: string): THydrogeologicUnit;
	procedure FillDataArrayNames(DataArrayNames: TStrings);
	procedure RemoveUsedParameter(const ParameterName: string);

Properties

property Items[Index:integer]: THydrogeologicUnit read GetItems write SetItems;

Description

Methods

	function GetItems(Index: integer): THydrogeologicUnit;

	procedure SetItems(Index: integer; const Value: THydrogeologicUnit);

	constructor Create(Model: TBaseModel);

	procedure RenameParameters(const OldName, NewName: string);

	function GetUnitByName(UnitName: string): THydrogeologicUnit;

	procedure FillDataArrayNames(DataArrayNames: TStrings);

	procedure RemoveUsedParameter(const ParameterName: string);

Properties

	property Items[Index:integer]: THydrogeologicUnit read GetItems write SetItems;