Class TStack

Unit

Generics.Collections

Declaration

type TStack<T> = class(TCustomListWithPointers<T>)

Description

More info: http://stackoverflow.com/questions/5232198/about-vectors-growth TODO: custom memory managers (as constraints) ˜approximation to golden ratio: n = n * 1.5 } {$DEFINE CUSTOM_LIST_CAPACITY_INC := Result * 2} // standard inc

Hierarchy

• TObject
• TEnumerable
• TEnumerableWithPointers
• TCustomList
• TCustomListWithPointers
• TStack

Overview

Internal Classes and Records

TEnumerator = class(TCustomListEnumerator<T>)

Methods

	function DoGetEnumerator: TEnumerator<T>; override;
	function GetEnumerator: TEnumerator; reintroduce;
	function DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T; override;
	procedure SetCapacity(AValue: SizeInt); override;
	constructor Create(ACollection: TEnumerable<T>); overload;
	destructor Destroy; override;
	procedure Clear;
	procedure Push(constref AValue: T);
	function Pop: T; inline;
	function Peek: T;
	function Extract: T; inline;
	procedure TrimExcess; override;

Description

Methods

	function DoGetEnumerator: TEnumerator<T>; override;
bug #24287 - workaround for generics type name conflict (Identifier not found) next bug workaround - for another error related to previous workaround change order (function must be declared before TEnumerator declaration}

	function GetEnumerator: TEnumerator; reintroduce;

	function DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T; override;

	procedure SetCapacity(AValue: SizeInt); override;

	constructor Create(ACollection: TEnumerable<T>); overload;

	destructor Destroy; override;

	procedure Clear;

	procedure Push(constref AValue: T);

	function Pop: T; inline;

	function Peek: T;

	function Extract: T; inline;

	procedure TrimExcess; override;