Скрипт Adena To Gold Bar

[Nickers]

Хз)) Можно облегчить)) Но мне влом))
Прост процедуры Создания и Обновления ставим с условием занесения "Если ID=57"(Если кусок пакета принадлежит Аденке) и чтоб заносилось не в Матрицу, а просто в массив из 2х-3х переменных(Ну там ID, OID и Count)... Я могу сделать, но влом))

Перебор i Через For или Until прыжок = отступу байтов (От ID 1го итема в пакете до ID 2го и т.д.) И в цикле проверка на if ReadD(i)==ID, Если да то заносим данные

//Пример Записи в 1о мерный массив:
//Если Нашли Адену, считываем все Данные с нее... j вычисляется из i (-4 наверн)...
Adena[1]:=Read(j);
inc(j,4);
Adena[2]:=Read(j);
inc(j,4);
Adena[3]:=Read(j);