paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +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
type // bug #24282
TArrayHelperBugHack = TArrayHelper<T>;
TArrayOfT = array of T;
private
FOnNotify: TCollectionNotifyEvent<T>;
function GetCapacity: SizeInt; inline;
protected
FLength: SizeInt;
FItems: array of T;
FItems: TArrayOfT;
function PrepareAddingItem: SizeInt; virtual;
function PrepareAddingRange(ACount: SizeInt): SizeInt; virtual;
@ -204,6 +205,7 @@ type
property Count: SizeInt read GetCount;
property Capacity: SizeInt read GetCapacity write SetCapacity;
property List: TArrayOfT read FItems;
property OnNotify: TCollectionNotifyEvent<T> read FOnNotify write FOnNotify;
procedure TrimExcess; virtual; abstract;