paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:09:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add TList<T>RemoveItem, for delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-13 14:28:13 +02:00
parent a9b8fb0f05
commit f89cd88ce2
1 changed files with 16 additions and 2 deletions

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

@ -46,11 +46,11 @@ interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.RtlConsts, System.Classes, System.SysUtils, System.Generics.MemoryExpanders, System.Generics.Defaults,
System.Generics.Helpers, System.Generics.Strings;
System.Generics.Helpers, System.Generics.Strings, System.Types;
{$ELSE FPC_DOTTEDUNITS}
uses
RtlConsts, Classes, SysUtils, Generics.MemoryExpanders, Generics.Defaults,
Generics.Helpers, Generics.Strings;
Generics.Helpers, Generics.Strings, Types;
{$ENDIF FPC_DOTTEDUNITS}
{.$define EXTRA_WARNINGS}
@ -287,6 +287,7 @@ type
{$ENDIF}
function Remove(const AValue: T): SizeInt;
function RemoveItem(const Value: T; Direction: TDirection): SizeInt;
procedure Delete(AIndex: SizeInt); inline;
procedure DeleteRange(AIndex, ACount: SizeInt);
function ExtractIndex(const AIndex: SizeInt): T; overload;
@ -1708,6 +1709,19 @@ begin
DoRemove(Result, cnRemoved);
end;
function TList<T>.RemoveItem(const Value: T; Direction: TDirection): SizeInt;
begin
if Direction=TDirection.FromBeginning then
Result:=Remove(Value)
else
begin
Result:=LastIndexOf(Value);
if Result>=0 then
DoRemove(Result, cnRemoved);
end;
end;
procedure TList<T>.Delete(AIndex: SizeInt);
begin
DoRemove(AIndex, cnRemoved);