Class TSegmentList

Unit

doublePolyhedronUnit

Declaration

type TSegmentList = class(TObject)

Description

Hierarchy

• TObject
• TSegmentList

Overview

Fields

FList: TList;

Methods

	function Getitems(Index: integer): TSegmentObject;
	function Count: integer;
	Constructor Create;
	Destructor Destroy; override;
	function IndexOf(ASegment: TSegmentObject): integer;
	function Add(ASegment: TSegmentObject): integer;

Properties

property items[Index:integer]: TSegmentObject read Getitems;

Description

Fields

	FList: TList;

Methods

	function Getitems(Index: integer): TSegmentObject;

	function Count: integer;

	Constructor Create;

	Destructor Destroy; override;

	function IndexOf(ASegment: TSegmentObject): integer;

	function Add(ASegment: TSegmentObject): integer;

Properties

	property items[Index:integer]: TSegmentObject read Getitems;