Class THob_Cell

Unit

ModflowHobUnit

Declaration

type THob_Cell = class(TValueCell)

Description

Hierarchy

• TObject
• TValueCell
• THob_Cell

Overview

Fields

Values: THobRecord;

Methods

	function GetHead: double;
	function GetTime: double;
	function GetHeadAnnotation: string;
	function GetColumn: integer; override;
	function GetLayer: integer; override;
	function GetRow: integer; override;
	procedure SetColumn(const Value: integer); override;
	procedure SetLayer(const Value: integer); override;
	procedure SetRow(const Value: integer); override;
	function GetIntegerValue(Index: integer; AModel: TBaseModel): integer; override;
	function GetRealValue(Index: integer; AModel: TBaseModel): double; override;
	function GetRealAnnotation(Index: integer; AModel: TBaseModel): string; override;
	function GetIntegerAnnotation(Index: integer; AModel: TBaseModel): string; override;
	procedure Cache(Comp: TCompressionStream; Strings: TStringList); override;
	procedure Restore(Decomp: TDecompressionStream; Annotations: TStringList); override;
	function GetSection: integer; override;
	procedure RecordStrings(Strings: TStringList); override;

Properties

	property Head: double read GetHead;
	property Time: double read GetTime;
	property HeadAnnotation: string read GetHeadAnnotation;

Description

Fields

	Values: THobRecord;

Methods

	function GetHead: double;

	function GetTime: double;

	function GetHeadAnnotation: string;

	function GetColumn: integer; override;

	function GetLayer: integer; override;

	function GetRow: integer; override;

	procedure SetColumn(const Value: integer); override;

	procedure SetLayer(const Value: integer); override;

	procedure SetRow(const Value: integer); override;

	function GetIntegerValue(Index: integer; AModel: TBaseModel): integer; override;

	function GetRealValue(Index: integer; AModel: TBaseModel): double; override;

	function GetRealAnnotation(Index: integer; AModel: TBaseModel): string; override;

	function GetIntegerAnnotation(Index: integer; AModel: TBaseModel): string; override;

	procedure Cache(Comp: TCompressionStream; Strings: TStringList); override;

	procedure Restore(Decomp: TDecompressionStream; Annotations: TStringList); override;

	function GetSection: integer; override;

	procedure RecordStrings(Strings: TStringList); override;

Properties

	property Head: double read GetHead;

	property Time: double read GetTime;

	property HeadAnnotation: string read GetHeadAnnotation;