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

FParcels.Clear;

inherited;

end;

procedure TAccumulator.Pass(SourceIndex : integer);

begin

inherited;

Container.State := psStore;

end;

procedure TAccumulator.TakeParcel(Index : integer);

begin

FParcels.Add(Sources[Index].Container);

TQSheme(Sheme).NewEvent(EV_TAKE,Self,Sources[Index],Sources[Index].Container.Info);

Container := FParcels.Last;

Sources[Index].DropParcel;

end;

end.