Class TRes_Cell

Unit

ModflowResUnit

Declaration

type TRes_Cell = class(TValueCell)

Description

Hierarchy

• TObject
• TValueCell
• TRes_Cell

Overview

Fields

	Values: TResRecord;
	StressPeriod: integer;

Methods

	function GetResID: integer;
	function GetResIdAnnotation: 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 ResID: integer read GetResID;
	property ResIdAnnotation: string read GetResIdAnnotation;

Description

Fields

	Values: TResRecord;

	StressPeriod: integer;

Methods

	function GetResID: integer;

	function GetResIdAnnotation: 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 ResID: integer read GetResID;

	property ResIdAnnotation: string read GetResIdAnnotation;