From 8df83483e46fc6981383d840253a4c7bc8aacc08 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 19 Apr 2024 07:57:45 -0300
Subject: [PATCH] IsEmpty function for Queue, to Delphi compatibility.

---
 packages/rtl/src/generics.collections.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/packages/rtl/src/generics.collections.pas b/packages/rtl/src/generics.collections.pas
index 7f9fd5e..d44f51a 100644
--- a/packages/rtl/src/generics.collections.pas
+++ b/packages/rtl/src/generics.collections.pas
@@ -279,6 +279,7 @@ type
   private
     FMaxGapLength: Integer;
     FLow: SizeInt;
+    function GetIsEmpty: Boolean;
   protected
     function DoGetEnumerator: TEnumerator<T>; override;
   public
@@ -305,6 +306,8 @@ type
     function Peek: T;
     procedure Clear;
     procedure TrimExcess; override;
+
+    property IsEmpty: Boolean read GetIsEmpty;
     // Maximum gap (=amount of empty slots in array before first element)
     // before doing a rebase of the list. Defaults to 10.
     Property MaxGapLength : Integer Read FMaxGapLength Write FMaxGapLength;
@@ -1805,6 +1808,11 @@ begin
   Result := TEnumerator.Create(Self);
 end;
 
+function TQueue<T>.GetIsEmpty: Boolean;
+begin
+  Result := Count = 0;
+end;
+
 procedure TQueue<T>.SetCapacity(AValue: SizeInt);
 begin
   if AValue < Count then