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

* Add TList<T>.list property for Delphi compatibility. Fixes #40642

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-15 12:22:05 +01:00
parent a3b730b0f1
commit aa4136ce52
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -186,12 +186,13 @@ type
protected protected
type // bug #24282 type // bug #24282
TArrayHelperBugHack = TArrayHelper<T>; TArrayHelperBugHack = TArrayHelper<T>;
TArrayOfT = array of T;
private private
FOnNotify: TCollectionNotifyEvent<T>; FOnNotify: TCollectionNotifyEvent<T>;
function GetCapacity: SizeInt; inline; function GetCapacity: SizeInt; inline;
protected protected
FLength: SizeInt; FLength: SizeInt;
FItems: array of T; FItems: TArrayOfT;
function PrepareAddingItem: SizeInt; virtual; function PrepareAddingItem: SizeInt; virtual;
function PrepareAddingRange(ACount: SizeInt): SizeInt; virtual; function PrepareAddingRange(ACount: SizeInt): SizeInt; virtual;
@ -204,6 +205,7 @@ type
property Count: SizeInt read GetCount; property Count: SizeInt read GetCount;
property Capacity: SizeInt read GetCapacity write SetCapacity; property Capacity: SizeInt read GetCapacity write SetCapacity;
property List: TArrayOfT read FItems;
property OnNotify: TCollectionNotifyEvent<T> read FOnNotify write FOnNotify; property OnNotify: TCollectionNotifyEvent<T> read FOnNotify write FOnNotify;
procedure TrimExcess; virtual; abstract; procedure TrimExcess; virtual; abstract;