Вниз
Скачать: CL | DM;

индексированный доступ к массиву   Найти похожие ветки 

 
SergP ©   (2006-02-11 18:06) [0]

Имеется MyArray:array of record ...
нужен индексированный (по какому-нить полю записи) доступ к этому массиву.
Так как я не нашел пока инфы как такое реализовать, то делаю так:
Создаю "индексный массив": array of integer длиной такой же как и "индексируемый". присваиваю каждому элементу значение его индекса:
for i:=0 to high(indexarray) do indexarray[i]:=i;
Затем сортирую его quicksort"ом, где при сортировке идет сравнение по
нужному полю из записи индексируемого массива.
(  MyArray[indexarray[i]].MyField   )
После чего могу обращаться к моему массиву таким образом  MyArray[indexarray[i]]  , и соответственно могу также производить бинарный поиск по полям, для которых построены индексы.
Добавление элементов в массив произвожу так:
Бинарным поиском по индексируемому полю нахожу место куда его вставлять, увеличиваю размеры обоих массивов, добавляю мою запись в конец MyArray, сдвигаю часть indexarray на один элемент (4 байта) начиная от найденного места, и в это место вставляю значение high(myarray).

Не знаю насколько хорош этот способ. Поэтому вопрос:
Есть ли какие-то другие способы получше для индексированного доступа к массиву? И есть ли способы где можно было бы не создавать дополнительный массив, а добавить для индексирования еще одно (или несколько) поле в запись?


 
Bogdan1024 ©   (2006-02-11 21:56) [1]

бинарным деревом.


 
SergP ©   (2006-02-11 22:47) [2]


> Bogdan1024 ©   (11.02.06 21:56) [1]
> бинарным деревом.


Ну и...
Поконкретнее можно?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c
1-1138198956
MegaVolt
2006-01-25 17:22
2006.02.26
Как бы сделать псевдо множественное наследование?


15-1139155208
VictorT
2006-02-05 19:00
2006.02.26
Редирект без сохранения в истории переходов броузера (PHP)


15-1139247995
PARUS
2006-02-06 20:46
2006.02.26
Имитатор.


2-1139412356
ListBox
2006-02-08 18:25
2006.02.26
Как узнать сколько строк помещается в ListBox без прокрутки?


1-1138120988
буратино
2006-01-24 19:43
2006.02.26
TWebBrowser




   Наверх