Class TSparseArrayPhastInterpolationDataSet

Unit

PhastDataSets

Declaration

type TSparseArrayPhastInterpolationDataSet = class(TCustomPhastDataSet)

Description

TSparseArrayPhastInterpolationDataSet is a abstract ancestor for sparse data set. It is used mainly for boundary conditions because it doesn't store data at locations where no data is needed.

It stores most of the data required for PHAST style interpolation. Its descendants store the rest of the data depending on whether integer or real numbers are to be stored.

TSparseArrayPhastInterpolationDataSet is never used directly, it is used as a common ancestor of other classes.

Most TSparseArrayPhastInterpolationDataSet are managed by a TPhastTimeList. Because they are created and destroyed frequently, they generally should not TalkTo or be TalkedTo to. (See TObserver.TalksTo.) Instead notify the TPhastTimeList via the Invalidate method of the TPhastTimeList that owns the TSparseArrayPhastInterpolationDataSet or TObserver.OnUpToDateSet

Hierarchy

• TComponent
• TObserver
• TDataArray
• TCustomPhastDataSet
• TSparseArrayPhastInterpolationDataSet

Overview

Fields

	FAnnotation: T3DSparseStringArray;
	FBoundaryDataType: TDataArray;
	FCellDistance1: T3DSparseRealArray;
	FCellDistance2: T3DSparseRealArray;
	FCellInterpolationDirection: T3DSparseInterpolationDirectionArray;
	FIsInterpolatedCell: T3DSparseBooleanArray;

Methods

	function GetAnnotation(const Layer, Row, Col: integer): string; override;
	function GetCellDistance1(const ALay, ARow, ACol: integer): double; override;
	function GetCellDistance2(const ALay, ARow, ACol: integer): double; override;
	function GetCellInterpolationDirection(const ALay, ARow, ACol: integer): TInterpolationDirection; override;
	function GetIsInterpolatedCell(const ALay, ARow, ACol: integer): boolean; override;
	function GetIsValue(const Layer, Row, Col: Integer): boolean; override;
	procedure ResetCellsPhastInterpolation; override;
	procedure SetAnnotation(const Layer, Row, Col: integer; const Value: string); override;
	procedure SetCellDistance1(const ALay, ARow, ACol: integer; const Value: double); override;
	procedure SetCellDistance2(const ALay, ARow, ACol: integer; const Value: double); override;
	procedure SetCellInterpolationDirection(const ALay, ARow, ACol: integer; const Value: TInterpolationDirection); override;
	procedure SetDimensions(const SetToZero: boolean); override;
	procedure SetIsInterpolatedCell(const ALay, ARow, ACol: integer; const Value: boolean); override;
	procedure SetIsValue(const Layer, Row, Col: Integer; const Value: boolean); override;
	function IsSparseArray: boolean; override;
	constructor Create(AnOwner: TComponent); override;
	destructor Destroy; override;
	procedure Initialize; override;

Properties

property BoundaryDataType: TDataArray read FBoundaryDataType write FBoundaryDataType;

Description

Fields

	FAnnotation: T3DSparseStringArray;
See TCustomPhastDataSet.Annotation.

	FBoundaryDataType: TDataArray;
See BoundaryDataType.

	FCellDistance1: T3DSparseRealArray;
See TCustomPhastDataSet.CellDistance1.

	FCellDistance2: T3DSparseRealArray;
See TCustomPhastDataSet.CellDistance2.

	FCellInterpolationDirection: T3DSparseInterpolationDirectionArray;
See TCustomPhastDataSet. InterpolationDirection.

	FIsInterpolatedCell: T3DSparseBooleanArray;
See TCustomPhastDataSet.IsInterpolatedCell.

Methods

	function GetAnnotation(const Layer, Row, Col: integer): string; override;
See TCustomPhastDataSet.Annotation.

	function GetCellDistance1(const ALay, ARow, ACol: integer): double; override;
See TCustomPhastDataSet.CellDistance1.

	function GetCellDistance2(const ALay, ARow, ACol: integer): double; override;
See TCustomPhastDataSet.CellDistance2.

	function GetCellInterpolationDirection(const ALay, ARow, ACol: integer): TInterpolationDirection; override;
See TCustomPhastDataSet. InterpolationDirection.

	function GetIsInterpolatedCell(const ALay, ARow, ACol: integer): boolean; override;
See TCustomPhastDataSet.IsInterpolatedCell.

	function GetIsValue(const Layer, Row, Col: Integer): boolean; override;
See TCustomPhastDataSet.IsValue.

	procedure ResetCellsPhastInterpolation; override;
ResetCellsPhastInterpolation clears TCustomPhastDataSet.IsInterpolatedCell.

	procedure SetAnnotation(const Layer, Row, Col: integer; const Value: string); override;
See TCustomPhastDataSet.Annotation.

	procedure SetCellDistance1(const ALay, ARow, ACol: integer; const Value: double); override;
See TCustomPhastDataSet.CellDistance1.

	procedure SetCellDistance2(const ALay, ARow, ACol: integer; const Value: double); override;
See TCustomPhastDataSet.CellDistance2.

	procedure SetCellInterpolationDirection(const ALay, ARow, ACol: integer; const Value: TInterpolationDirection); override;
See TCustomPhastDataSet.InterpolationDirection.

	procedure SetDimensions(const SetToZero: boolean); override;
SetDimensions clears all the sparse data arrays.

	procedure SetIsInterpolatedCell(const ALay, ARow, ACol: integer; const Value: boolean); override;
See TCustomPhastDataSet.IsInterpolatedCell.

	procedure SetIsValue(const Layer, Row, Col: Integer; const Value: boolean); override;
See TCustomPhastDataSet.IsValue.

	function IsSparseArray: boolean; override;

	constructor Create(AnOwner: TComponent); override;
Create creates an instance of TSparseArrayPhastInterpolationDataSet.

	destructor Destroy; override;
Destroy destroys the current instance of TSparseArrayPhastInterpolationDataSet. Do not call Destroy directly. Call Free instead.

	procedure Initialize; override;
Initialize assigns values to all the cells that ought to have values assigned.

Properties

	property BoundaryDataType: TDataArray read FBoundaryDataType write FBoundaryDataType;
BoundaryDataType is the data set used to indicate what type of boundary is at a specific location.