Class TWell_Cell

Unit

ModflowWellUnit

Declaration

type TWell_Cell = class(TValueCell)

Description

Hierarchy

• TObject
• TValueCell
• TWell_Cell

Overview

Fields

	Values: TWellRecord;
	StressPeriod: integer;

Methods

	function GetPumpingRate: double;
	function GetPumpingRateAnnotation: 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 PumpingRate: double read GetPumpingRate;
	property PumpingRateAnnotation: string read GetPumpingRateAnnotation;

Description

Fields

	Values: TWellRecord;

	StressPeriod: integer;

Methods

	function GetPumpingRate: double;

	function GetPumpingRateAnnotation: 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 PumpingRate: double read GetPumpingRate;

	property PumpingRateAnnotation: string read GetPumpingRateAnnotation;