Class TPointsSet

Unit

points_set

Declaration

type TPointsSet = class(TSelfCopiedComponent)

Description

Generic point set.

Hierarchy

• TComponent
• TSelfCopiedComponent
• TPointsSet

Overview

Fields

FPoints: TwoDimArray;

Methods

	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	function IndexOfNearestToX(XValue: double): longint;
	function IndexOfValueX(XValue: double): longint;
	function GetMaxXCoord: double;
	function GetMaxYCoord: double;
	function GetPointsCount: longint;
	function GetPointXCoord(index: longint): double; virtual;
	function GetPointYCoord(index: longint): double; virtual;
	procedure AddNewPoint(XValue, YValue: double);
	procedure Clear;
	procedure CopyParameters(Dest: TObject); override;
	procedure DeletePoint(XValue: double);
	procedure ReplacePoint(PrevXValue, PrevYValue, NewXValue, NewYValue: double);
	procedure Sort; virtual;
	procedure SetPointXCoord(index: longint; Value: double); virtual;
	procedure SetPointYCoord(index: longint; Value: double); virtual;

Properties

	property MaxXCoord: double read GetMaxXCoord;
	property MaxYCoord: double read GetMaxYCoord;
	property PointsCount: longint read GetPointsCount;
	property PointXCoord[index:longint]: double read GetPointXCoord write SetPointXCoord;
	property PointYCoord[index:longint]: double read GetPointYCoord write SetPointYCoord;

Description

Fields

	FPoints: TwoDimArray;

Methods

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	function IndexOfNearestToX(XValue: double): longint;
Returns index of point having X closest to the given value.

	function IndexOfValueX(XValue: double): longint;
Returns index of point with given X, -1 if point not found.

	function GetMaxXCoord: double;

	function GetMaxYCoord: double;

	function GetPointsCount: longint;

	function GetPointXCoord(index: longint): double; virtual;

	function GetPointYCoord(index: longint): double; virtual;

	procedure AddNewPoint(XValue, YValue: double);

	procedure Clear;

	procedure CopyParameters(Dest: TObject); override;

	procedure DeletePoint(XValue: double);

	procedure ReplacePoint(PrevXValue, PrevYValue, NewXValue, NewYValue: double);

	procedure Sort; virtual;

	procedure SetPointXCoord(index: longint; Value: double); virtual;

	procedure SetPointYCoord(index: longint; Value: double); virtual;

Properties

	property MaxXCoord: double read GetMaxXCoord;

	property MaxYCoord: double read GetMaxYCoord;

	property PointsCount: longint read GetPointsCount;

	property PointXCoord[index:longint]: double read GetPointXCoord write SetPointXCoord;

	property PointYCoord[index:longint]: double read GetPointYCoord write SetPointYCoord;