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

IsEmpty functoin in the TList to Delphi compability.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-06-11 19:04:52 -03:00 committed by Michael Van Canneyt
parent ab7947fb1c
commit dee43db2a7
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/src/generics.collections.pas
View File

@ -185,6 +185,7 @@ type
private
function GetItem(AIndex: SizeInt): T;
procedure SetItem(AIndex: SizeInt; const AValue: T);
function GetIsEmpty: Boolean;
public
type
TEnumerator = class(TCustomListEnumerator<T>);
@ -236,6 +237,7 @@ type
function BinarySearch(const AItem: T; out AIndex: SizeInt; const AComparer: IComparer<T>): Boolean; overload;
property Count: SizeInt read FLength write SetCount;
property IsEmpty: Boolean read GetIsEmpty;
property Items[Index: SizeInt]: T read GetItem write SetItem; default;
end;
@ -890,6 +892,11 @@ begin
Result := GetEnumerator;
end;
function TList<T>.GetIsEmpty: Boolean;
begin
Result := Count = 0;
end;
function TList<T>.GetItem(AIndex: SizeInt): T;
begin
if (AIndex < 0) or (AIndex >= Count) then