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

* Add delphi-compatible TList constructor with array of values

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-28 10:12:43 +01:00
parent 70591f6449
commit e958ad5126
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,6 +266,7 @@ type
constructor Create; overload;
constructor Create(const AComparer: IComparer<T>); overload;
constructor Create(ACollection: TEnumerable<T>); overload;
constructor Create(aValues : Array of T); overload;
{$IFDEF ENABLE_METHODS_WITH_TEnumerableWithPointers}
constructor Create(ACollection: TEnumerableWithPointers<T>); overload;
{$ENDIF}
@ -1617,6 +1618,16 @@ begin
Add(LItem);
end;
constructor TList<T>.Create(aValues : Array of T);
var
LItem: T;
begin
Create;
for LItem in aValues do
Add(LItem);
end;
{$IFDEF ENABLE_METHODS_WITH_TEnumerableWithPointers}
constructor TList<T>.Create(ACollection: TEnumerableWithPointers<T>);
var