paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add TList.ExtractAt for delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-16 17:45:09 +01:00
parent d9903e6e16
commit b07818e51b
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl-generics/src/generics.collections.pas
View File

@ -290,6 +290,7 @@ type
procedure Delete(AIndex: SizeInt); inline; procedure Delete(AIndex: SizeInt); inline;
procedure DeleteRange(AIndex, ACount: SizeInt); procedure DeleteRange(AIndex, ACount: SizeInt);
function ExtractIndex(const AIndex: SizeInt): T; overload; function ExtractIndex(const AIndex: SizeInt): T; overload;
Function ExtractAt(const AIndex: SizeInt): T; inline;
function Extract(const AValue: T): T; overload; function Extract(const AValue: T): T; overload;
procedure Exchange(AIndex1, AIndex2: SizeInt); virtual; procedure Exchange(AIndex1, AIndex2: SizeInt); virtual;
@ -1749,6 +1750,14 @@ begin
Result := DoRemove(AIndex, cnExtracted); Result := DoRemove(AIndex, cnExtracted);
end; end;
function TList<T>.ExtractAt(const AIndex: SizeInt): T;
begin
Result:=ExtractIndex(AIndex);
end;
function TList<T>.Extract(const AValue: T): T; function TList<T>.Extract(const AValue: T): T;
var var
LIndex: SizeInt; LIndex: SizeInt;