Class THydrogeologicUnit

Unit

HufDefinition

Declaration

type THydrogeologicUnit = class(TOrderedItem)

Description

TOrderedItem is designed to allow TOrderedCollection to identify changed and new items during TOrderedCollection.Assign.

Hierarchy

• TCollectionItem
• TOrderedItem
• THydrogeologicUnit

Overview

Fields

	FThickessArrayName: string;
	FTopArrayName: string;
	FVerticalAnisotropy: double;
	FPrintFormat: integer;
	FHufName: string;
	FHorizontalAnisotropy: double;
	FVK_Method: TVK_Method;
	FHufUsedParameters: THufUsedParameters;
	FPrintItems: TPrintCollection;

Methods

	procedure SetHorizontalAnisotropy(const Value: double);
	procedure SetHufName(Value: string);
	procedure SetPrintFormat(const Value: integer);
	procedure SetVerticalAnisotropy(const Value: double);
	procedure SetVK_Method(const Value: TVK_Method);
	procedure SetHufUsedParameters(const Value: THufUsedParameters);
	function GetPrint(Index: TPrintParam): boolean;
	procedure SetPrint(Index: TPrintParam; const Value: boolean);
	function ComparePrint(OtherUnit: THydrogeologicUnit): Boolean;
	procedure SetPrintItems(const Value: TPrintCollection);
	procedure RenameLayer(const NewHufName: string);
	procedure FillDataArrayNames(DataArrayNames: TStrings);
	procedure CreateOrRenameDataArray(var LayerName: string; Extension, DisplayExtension: string; const NewHufName: string; AModel: TBaseModel);
	function HufUnits: THydrogeologicUnits;
	procedure RemoveUsedParameter(const ParameterName: string);
	function UsesParameterType(ParamType: TParameterType): Boolean;
	function IsSame(AnotherItem: TOrderedItem): boolean; override;
	procedure Assign(Source: TPersistent); override;
	constructor Create(Collection: TCollection); override;
	procedure RenameParameters(const OldName, NewName: string);
	Destructor Destroy; override;
	function UsesHaniParam: boolean;
	function UsesVkParam: boolean;
	function UsesParameter(Parameter: TModflowParameter): THufUsedParameter;

Properties

	property Print[Index:TPrintParam]: boolean read GetPrint write SetPrint;
	property TopDataArrayName: string read FTopArrayName;
	property ThickessDataArrayName: string read FThickessArrayName;
	property HufName: string read FHufName write SetHufName;
	property HorizontalAnisotropy: double read FHorizontalAnisotropy write SetHorizontalAnisotropy;
	property VK_Method: TVK_Method read FVK_Method write SetVK_Method;
	property VerticalAnisotropy: double read FVerticalAnisotropy write SetVerticalAnisotropy;
	property PrintFormat: integer read FPrintFormat write SetPrintFormat default 1;
	property HufUsedParameters: THufUsedParameters read FHufUsedParameters write SetHufUsedParameters;
	property PrintItems: TPrintCollection read FPrintItems write SetPrintItems;

Description

Fields

	FThickessArrayName: string;

	FTopArrayName: string;

	FVerticalAnisotropy: double;

	FPrintFormat: integer;

	FHufName: string;

	FHorizontalAnisotropy: double;

	FVK_Method: TVK_Method;

	FHufUsedParameters: THufUsedParameters;

	FPrintItems: TPrintCollection;

Methods

	procedure SetHorizontalAnisotropy(const Value: double);

	procedure SetHufName(Value: string);

	procedure SetPrintFormat(const Value: integer);

	procedure SetVerticalAnisotropy(const Value: double);

	procedure SetVK_Method(const Value: TVK_Method);

	procedure SetHufUsedParameters(const Value: THufUsedParameters);

	function GetPrint(Index: TPrintParam): boolean;

	procedure SetPrint(Index: TPrintParam; const Value: boolean);

	function ComparePrint(OtherUnit: THydrogeologicUnit): Boolean;

	procedure SetPrintItems(const Value: TPrintCollection);

	procedure RenameLayer(const NewHufName: string);

	procedure FillDataArrayNames(DataArrayNames: TStrings);

	procedure CreateOrRenameDataArray(var LayerName: string; Extension, DisplayExtension: string; const NewHufName: string; AModel: TBaseModel);

	function HufUnits: THydrogeologicUnits;

	procedure RemoveUsedParameter(const ParameterName: string);

	function UsesParameterType(ParamType: TParameterType): Boolean;

	function IsSame(AnotherItem: TOrderedItem): boolean; override;

	procedure Assign(Source: TPersistent); override;

	constructor Create(Collection: TCollection); override;

	procedure RenameParameters(const OldName, NewName: string);

	Destructor Destroy; override;

	function UsesHaniParam: boolean;

	function UsesVkParam: boolean;

	function UsesParameter(Parameter: TModflowParameter): THufUsedParameter;

Properties

	property Print[Index:TPrintParam]: boolean read GetPrint write SetPrint;

	property TopDataArrayName: string read FTopArrayName;
TopDataArrayName is the name of the TDataArray that defines the top of the hydrogeologic unit.

	property ThickessDataArrayName: string read FThickessArrayName;
ThickessDataArrayName is the name of the TDataArray that defines the thickness of the hydrogeologic unit.

	property HufName: string read FHufName write SetHufName;

	property HorizontalAnisotropy: double read FHorizontalAnisotropy write SetHorizontalAnisotropy;

	property VK_Method: TVK_Method read FVK_Method write SetVK_Method;

	property VerticalAnisotropy: double read FVerticalAnisotropy write SetVerticalAnisotropy;

	property PrintFormat: integer read FPrintFormat write SetPrintFormat default 1;

	property HufUsedParameters: THufUsedParameters read FHufUsedParameters write SetHufUsedParameters;

	property PrintItems: TPrintCollection read FPrintItems write SetPrintItems;