Object1.OnCreate:
var
I: Word;
for I := 0 to Length(Self.Queue) - 1 do
New(Queue);
Object1.GetItem:
Result := Queue^
Object1.OnDestroy:
var
I: Word
for I := 0 to Length(Queue) - 1 do
Dispose(Queue);
ОЧередь сообщений
Дело такое. По сети шлю пакеты размером 20 кб. Мне необходимо на другом конце накопить, например, 10 буферов, а потом начать их обрабатывать. Прм этом вновь присланные пакеты помещаются в ту же очередь и ждут своей участи. Сейчас я это реализовал на динамическом списке(односвязном). Но есть проблемка: эта очередь находится в классе, и когда создаются новые экземпляры класса, вроде как очереди пересекаются :(.
Не подскажите, каким еще образом МОЖНО реализовать такую очередь???
Огромное спасибо!
Не подскажите, каким еще образом МОЖНО реализовать такую очередь???
Огромное спасибо!
Цитата:
Originally posted by ilich
Но есть проблемка: эта очередь находится в классе, и когда создаются новые экземпляры класса, вроде как очереди пересекаются :(
Но есть проблемка: эта очередь находится в классе, и когда создаются новые экземпляры класса, вроде как очереди пересекаются :(
Как?
Но можешь попробовать юзать указатели:
Код: