Структура хранения "разномастных" данных

[Alex Cones]

В общем сейчас ситуейшн, в которой не могу выбрать вариант.

В общем структура такая (R - record)

Warehouse (R)
+-Form = Array of TForm (R)
+-Texture = Array of TTexture (R)
+-Button...Label...бла-бла-бла, контролы.

Так вот, внутри структуры TForm хочу поместить список индексов контролов, которые относятся к данной форме.

Варианты, которые пришли в голову:

1. Добавить 2 свойства для TForm:
   

   TControls = Record
    Single : Array of Integer;
    Double : Array of Array of Integer;

   А индексы контролов хранить так:
   Form.Controls.Double[ELEM_TYPE_LABEL, 5 {Это порядковый номер контрола формы}] - здесь хранить индекс контрола в Warehouse.Label
   Form.Controls.Single[ELEM_TYPE_LABEL {Это набор интеджерных констант}] - здесь хранить длину второй мерности массива double.
2. Добавить 1 свойство для TForm:
   То же, что и выше, но без Single, если уметь получать вторую мерность массива через по-другому.
3. Добавить одномерный массив, в котором хранить интеджерные значения, но следующим образом:
   $FFFFFF - █ - это тип контрола, а █ - это индекс контрола в соответствующем Warehouse.XXX

Есть какие идеи?

[Stilet]

TControls = Record

А я бы это классом сделал... Наподобие TList. ИМХО удобнее будет.

[Alex Cones]

Повторюсь, использование классов не оправдано в данном проекте.

Классы больше жрут памяти, классы медленнее, исполняемый файл с классами больше в 10 раз.

Я вот думаю, может что-то с указателями замутить можно?

[Stilet]

может что-то с указателями замутить можно?

Можно конечно, но писать мороку будет... Память то ты как будешь распределять?

[Alex Cones]

но писать мороку будет

Ок, оставлю на десерт, если борщ не попрет.

А что из 3-х вышеперечисленных методов кажется Вам наиболее подходящим? Я склоняюсь к 3-му из-за наименьшего задействования ресурсов. 256 поддерживаемых типов контролов + 65000 как максимальное количество.

[InternetStranger]

Можно еще каждому контролу добавить волшебное поле, скажем, Parent, в которой записывать индекс (или другой ID) "родительской" формы (т.е. которой он [контрол] принадлежит).

И определить процедуру, например, извлечения всех Label указанной формы:

function getControlsOfThisForm(CtrlType:TCtrlType; FormID: Integer): TListOfControls;
begin
     if CtrlType = ELEM_TYPE_LABEL then begin
         for i:=0 to ... do 
             if Warehouse.Labels[i].Parent = FormID then 
                Result.Add( Warehouse.Labels[i] );
     end;
end;

ps: Поскольку не представляю для каких целей собираетесь использовать все это, не могу сказать о преимуществах или недостатках такого подхода.
Хотя... Описанный поход был бы гибче, т.к. в Parent м/о вписывать не только ID формы, но и например, ID какой-нибудь группы контролов на форме (так м/о было бы определять принадлежность контрола не т/о к одной из форм, но и к определенной группе объектов этой формы).


На правах рекламы: Знаю, Вы говорили, что "не оправдано", но классы- более продвинутые структуры: при создании объектов они снабжаются RTTI-информацией, что делает возможным существование поиска классов, свойств и методов по их названиям и много чего другого

[Alex Cones]

У контролов свойство Parent таки есть. Для визуальных там храню индекс формы в хранилище. Почему я тогда делаю выше представленное? Для возможности цикла For I := 0 To Form.ControlCount-1 без перечисления всех контролов, что при их большом количестве будет делом небыстрым.