Управление динамической памятью при вложенных структурах

[opencloser]

Что то не получается разобраться, как все таки Delphi7 выделяет память...
Подробнее, есть код:
1)

ComPort = record  // описание аппарата подключенного к ком порту
   ....
    all_buf      : array of ShortString;//   буфер
   .... 
    template_d: array of template_data;   // шаблоны
end;

2)

type
  template_data=record                       // описание шаблона
    name_template  : ShortString;                // имя
    search_function: ShortString;                 // функция
    f_parameter    : array of ShortString;       // набор параметров
    f_value        : array of ShortString;         //набор значений
    search_p       : array of search_pokazatel;//набор показателей шаблона
  end;

type  // описание показателя
  search_pokazatel = record
    name_pokazatel :ShortString;                  // имя
    pokazatel_function :ShortString;              // функция
    f_parameter    : array of ShortString;        // параметры
    f_value        : array of ShortString;        // значения
    result_pokaz   :ShortString;                  // Результат
  end;

3)
Как я управляю памятью:

TComPortClass = Class // Базовый класс для управления аппаратами
  private
    FSComPort: array of ComPort; // массив подключенных аппаратов
    ComPortCount : integer; // номер аппарата в этом массиве
    function GetSComPort(index: integer): ComPort; 
    procedure SetSComPort(index: integer;const Value:Comport);
  public
    function SComPortAdd(Value: ComPort) : Integer;
    property SComPort[Index: integer]: ComPort read GetSComPort write SetSComPort;  
   end;

function TComPortClass.GetSComPort(Index: integer) :ComPort ;
begin
  Result := FSComPort[Index];
end;

Procedure TComPortClass.SetSComPort(index: integer;const Value:Comport);
begin
  FSComPort[Index]:= Value;   
end;

function TComPortClass.SComPortAdd(Value: ComPort) : Integer;
begin
  ComPortCount:=ComPortCount+1;
  SetLength(FSComPort,Length(FSComPort)+1);
  SetSComPort(High(FSComPort),Value);
  Result := High(FSComPort);
end;

Теперь к проблеме:
Есть

Com_i: TComPortClass;

Все работает прекрасно, пока я не пытаюсь выделить память под параметры показателя.

SetLength(  Com_i.FSComPort[com_id].template_d[high_i].search_p[high_j].f_parameter,
                     length(Com_i.FSComPort[com_id].template_d[high_i].search_p[high_j].f_parameter)+1
                         );

Понимаю что тип показатель может занимать "непонятно какой длинны" место в памяти, и мой вызов:

SetLength(    Com_i.FSComPort[com_id].template_d[high_i].search_p,
                     length(Com_i.FSComPort[com_id].template_d[high_i].search_p)+1
                      );

не совсем корректный. Хотелось бы узнать как преобразовать исходный класс для управления памятью в моем примере. Структуры не хотелось бы трогать. И еще хорошо бы, если вы смогли бы мне пояснить, как все таки работает SetLength, т.к. насколько я понял из документации, данная мной структура вполне должна отрабатывать.

[opencloser]

Напрашивается наследование..., но все таки, хотелось бы минимизировать изменение кода, а в идеале изменить только базовый класс.

[opencloser]

Все работает, проблема не в этом!
Как закрыть тему то?

[phomm]

ComPortCount : integer; // номер аппарата в этом массиве
...
function TComPortClass.SComPortAdd(Value: ComPort) : Integer;
ComPortCount:=ComPortCount+1;

Комментарий таки неверный, не "номер", а "количество".

Лично я бы такое не доверил своим "рукам", слишком много операций которые могут легко быть написаны некорректно с точки зрения логики, но корректно для компилятора, поэтому использовал бы списки TList или даже TObjectList (или их обобщённые версии, если дельфи 2009+), придётся только добавить инициализацию самих списков, но не их элементов и выделения памяти памяти под всё это.
Хотя, конечно, на любителя.

А тему модераторы закроют, когда увидят, не беспокойтесь.

[opencloser]

Спасибо, поправил . Как то не обратил внимания