plugin_demo4 не в помощь ?
Добавлено через 7 минут
кстати... гдето я кидал 2 процедурки сторящие и удаляющие элементы в массиве со смещением...
Добавлено через 8 минут
во. нашел.
http://coderx.ru/showpost.php?p=35707&postcount=787
добавить еще такую функцию
delphi Код:
Function ObjIdInArray(value:integer):integer;
var
i:integer;
begin
result := 0;
while (i < itemcount) and (itemarray[result] <> value) do inc(result);
end;
Существует ли значение в массиве (value = ObjId прочитаный с пакета. index : integer; )
delphi Код:
index := ObjIdInArray(value); //лучше поуступать так. избегая повторного запуска цикла.
If index < itemcount then
//значение существует. его к примеру можно удалить вот так
GetItemIdAndMove(index) //индекс мы получили выше
else
//значение не существует, добавляем
additemtoarray(value)
ну и в этом духе
Добавлено через 1 минуту
проверка на превышение -
if itemcount >= 255 then ....