paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: add enumerator for the TFPGList type

Browse Source 
git-svn-id: trunk@14245 -
This commit is contained in:
paul 2009-11-21 18:51:48 +00:00
parent 5684e3acc7
commit 64b6700c61
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/objpas/fgl.pp
View File

@ -84,12 +84,24 @@ const
MaxGListSize = MaxInt div 1024;
type
generic TFPGListEnumerator<T> = class(TObject)
var protected
FList: TFPSList;
FPosition: Integer;
function GetCurrent: T;
public
constructor Create(AList: TFPSList);
function MoveNext: Boolean;
property Current: T read GetCurrent;
end;
generic TFPGList<T> = class(TFPSList)
type public
TCompareFunc = function(const Item1, Item2: T): Integer;
TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList;
PT = ^T;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
var protected
FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override;
@ -103,6 +115,7 @@ type
function Add(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Extract(const Item: T): T; {$ifdef CLASSESINLINE} inline; {$endif}
function First: T; {$ifdef CLASSESINLINE} inline; {$endif}
function GetEnumerator: TFPGListEnumeratorSpec; {$ifdef CLASSESINLINE} inline; {$endif}
function IndexOf(const Item: T): Integer;
procedure Insert(Index: Integer; const Item: T); {$ifdef CLASSESINLINE} inline; {$endif}
function Last: T; {$ifdef CLASSESINLINE} inline; {$endif}
@ -608,6 +621,28 @@ end;
{$ifndef VER2_0}
{****************************************************************************}
{* TFPGListEnumerator *}
{****************************************************************************}
function TFPGListEnumerator.GetCurrent: T;
begin
Result := T(FList.Items[FPosition]^);
end;
constructor TFPGListEnumerator.Create(AList: TFPSList);
begin
inherited Create;
FList := AList;
FPosition := -1;
end;
function TFPGListEnumerator.MoveNext: Boolean;
begin
inc(FPosition);
Result := FPosition < FList.Count;
end;
{****************************************************************************}
{* TFPGList *}
{****************************************************************************}
@ -668,6 +703,11 @@ begin
Result := T(inherited First^);
end;
function TFPGList.GetEnumerator: TFPGListEnumeratorSpec;
begin
Result := TFPGListEnumeratorSpec.Create(Self);
end;
function TFPGList.IndexOf(const Item: T): Integer;
begin
Result := 0;