maximus: New method to remove an item from the UnitList

1 files changed, 6 insertions, 0 deletions

diff --git a/examples/apps/ide/src/unitlist.pas b/examples/apps/ide/src/unitlist.pas
index 37e9a9cd..e6c09a69 100644
--- a/examples/apps/ide/src/unitlist.pas
+++ b/examples/apps/ide/src/unitlist.pas
@@ -50,6 +50,7 @@ type
     function    FindByName(const AUnitName: TfpgString): TUnit;
     function    FileExists(const AFilename: TfpgString): Boolean;
     function    AddFileName(const AFilename: TfpgString): TUnit;
+    function    Remove(AUnit: TUnit): integer;
     procedure   Add(NewUnit: TUnit);
     procedure   Clear;
     procedure   Delete(AIndex: integer);
@@ -145,6 +146,11 @@ begin
   end;
 end;
 
+function TUnitList.Remove(AUnit: TUnit): integer;
+begin
+  Result := FList.Remove(AUnit);
+end;
+
 procedure TUnitList.Add(NewUnit: TUnit);
 var
   l: Integer;