Курсовая работа: Моделирование систем

end;

function TAccumulator.GetFreeSpacePresent: Boolean;

begin

Result := (Capacity <> FParcels.Count) or (not Limited);

end;

function TAccumulator.GetEmpty: Boolean;

begin

Result := FParcels.Count = 0;

//if not Result then Container := FParcels.First;

end;

procedure TAccumulator.DropParcel;

begin

if not Empty then FParcels.Delete(0);

inherited;

end;

function TAccumulator.GetCapacity : integer;

begin

Result := FCapacity;

end;

function TAccumulator.GetParcelCount: integer;

begin

Result := FParcels.Count;

end;

procedure TAccumulator.SetCapacity(Value : integer);

begin

FLimited := True;

FCapacity := Value;

end;

procedure TAccumulator.ClearContainer;