paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:49:20 +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; overload;
constructor Create(const AComparer: IComparer<T>); overload; constructor Create(const AComparer: IComparer<T>); overload;
constructor Create(ACollection: TEnumerable<T>); overload; constructor Create(ACollection: TEnumerable<T>); overload;
constructor Create(aValues : Array of T); overload;
{$IFDEF ENABLE_METHODS_WITH_TEnumerableWithPointers} {$IFDEF ENABLE_METHODS_WITH_TEnumerableWithPointers}
constructor Create(ACollection: TEnumerableWithPointers<T>); overload; constructor Create(ACollection: TEnumerableWithPointers<T>); overload;
{$ENDIF} {$ENDIF}
@ -1617,6 +1618,16 @@ begin
Add(LItem); Add(LItem);
end; 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} {$IFDEF ENABLE_METHODS_WITH_TEnumerableWithPointers}
constructor TList<T>.Create(ACollection: TEnumerableWithPointers<T>); constructor TList<T>.Create(ACollection: TEnumerableWithPointers<T>);
var var