Class TIntegerSparseDataSet

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TIntegerSparseDataSet = class(TCustomSparseDataSet)

Description

TIntegerSparseDataSet is used to store integers in a sparse array.

Hierarchy

Overview

Fields

Private FIntegerValues: T3DSparseIntegerArray;
Private FIsBoundary: boolean;

Methods

Protected procedure Clear; override;
Protected function GetIntegerData(const Layer, Row, Col: integer): integer; override;
Protected function GetIsValue(const Layer, Row, Col: Integer): boolean; override;
Protected procedure SetDataType(const Value: TRbwDataType); override;
Protected procedure SetDimensions(const SetToZero: boolean); override;
Protected procedure SetIntegerData(const Layer, Row, Col: integer; const Value: integer); override;
Protected procedure SetIsValue(const Layer, Row, Col: Integer; const Value: boolean); override;
Public constructor Create(AnOwner: TComponent); override;
Public destructor Destroy; override;
Public procedure GetMinMaxStoredLimits(out LayerMin, RowMin, ColMin, LayerMax, RowMax, ColMax: integer); override;

Properties

Public property IsBoundaryTypeDataSet: boolean read FIsBoundary write FIsBoundary;

Description

Fields

Private FIntegerValues: T3DSparseIntegerArray;

FIntegerValues is used to store the integers in TIntegerSparseDataSet.

Private FIsBoundary: boolean;

FIsBoundary is used to indicate that this data set is being used to define the type of boundary condition at various locations.

Methods

Protected procedure Clear; override;

Clear removes all the data from TIntegerSparseDataSet.

Protected function GetIntegerData(const Layer, Row, Col: integer): integer; override;
 
Protected function GetIsValue(const Layer, Row, Col: Integer): boolean; override;

GetIsValue checks whether FIntegerValues has been assigned at Layer, Row, Col as well as inherited GetIsValue.

Protected procedure SetDataType(const Value: TRbwDataType); override;

SetDataType checks that Value is rdtInteger.

Protected procedure SetDimensions(const SetToZero: boolean); override;

SetDimensions clears FIntegerValues and calls inherited SetDimensions.

Protected procedure SetIntegerData(const Layer, Row, Col: integer; const Value: integer); override;

SetIntegerData stores an integer at Layer, Row, Col.

Protected procedure SetIsValue(const Layer, Row, Col: Integer; const Value: boolean); override;

SetIsValue if BoundaryTypeDataSet = self then FIntegerValues.IsValue is set to Value. Otherwise inherited IsValue is set.

Public constructor Create(AnOwner: TComponent); override;

Create creates an instance of TIntegerSparseDataSet and sets DataType to rdtInteger.

Public destructor Destroy; override;

Destroy destroys the the current instance of TIntegerSparseDataSet. Do not call Destroy directly. Call Free instead.

Public procedure GetMinMaxStoredLimits(out LayerMin, RowMin, ColMin, LayerMax, RowMax, ColMax: integer); override;
 

Properties

Public property IsBoundaryTypeDataSet: boolean read FIsBoundary write FIsBoundary;

IsBoundaryTypeDataSet is true if this data set is used to record the type of boundary condition at a location.


Generated by PasDoc 0.12.1 on 2013-05-13 15:41:30