Class TDrn_Cell

Unit

ModflowDrnUnit

Declaration

type TDrn_Cell = class(TValueCell)

Description

Hierarchy

• TObject
• TValueCell
• TDrn_Cell

Overview

Fields

	Values: TDrnRecord;
	StressPeriod: integer;

Methods

	function GetElevation: double;
	function GetConductance: double;
	function GetConductanceAnnotation: string;
	function GetElevationAnnotation: 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;
	function IsIdentical(AnotherCell: TValueCell): boolean; override;

Properties

	property Conductance: double read GetConductance;
	property Elevation: double read GetElevation;
	property ConductanceAnnotation: string read GetConductanceAnnotation;
	property ElevationAnnotation: string read GetElevationAnnotation;

Description

Fields

	Values: TDrnRecord;

	StressPeriod: integer;

Methods

	function GetElevation: double;

	function GetConductance: double;

	function GetConductanceAnnotation: string;

	function GetElevationAnnotation: 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;

	function IsIdentical(AnotherCell: TValueCell): boolean; override;

Properties

	property Conductance: double read GetConductance;

	property Elevation: double read GetElevation;

	property ConductanceAnnotation: string read GetConductanceAnnotation;

	property ElevationAnnotation: string read GetElevationAnnotation;