Хз)) Можно облегчить)) Но мне влом))
Прост процедуры Создания и Обновления ставим с условием занесения "Если
ID=
57"(Если кусок пакета принадлежит Аденке) и чтоб заносилось не в Матрицу, а просто в массив из 2х-3х переменных(Ну там
ID,
OID и
Count)... Я могу сделать, но влом))
Перебор
i Через
For или
Until прыжок = отступу байтов (От
ID 1го итема в пакете до
ID 2го и т.д.) И в цикле проверка на if ReadD(i)==ID, Если да то заносим данные
delphi Код:
//Пример Записи в 1о мерный массив:
//Если Нашли Адену, считываем все Данные с нее... j вычисляется из i (-4 наверн)...
Adena[1]:=Read(j);
inc(j,4);
Adena[2]:=Read(j);
inc(j,4);
Adena[3]:=Read(j);