Как создать массив-константу из записей

[_BSW_]

Доброго времени суток, господа. Собственно вопрос вот в чем, имеется следующее:

type
 TRecord_1=record
   _Record_1_integer:  integer;
   _Record_1_string:   string;
 end;
 TRecord_2=record
   _Record_2_integer:  integer;
   _Record_2_string:   string;
   _Record_2_Record_1: array of TRecord_1; 
 end;

и вот хочется сделать массив-константу. Делаю вот так:

const
 Record_2:array [0..N] of TRecord_2=
 (
   (
     _Record_2_integer:  0;
     _Record_2_string:   '';
     _Record_2_Record_1: [COLOR="Red"]???????[/COLOR]
   );
    .......
 );

Красными вопросами выделил то место которое вызывает сложность. Можно-ли как-то это сделать?? Заранее спасибо.

 

[_BSW_]

Судя по всему, тема либо не интересна, либо ни кто не знает решения (в чем я сомневаюсь).
Раз сам задал вопрос то сам и буду отвечать, если конечно кому-то интересно.
Подсказали такое решение:

Спойлер

type
 TRecord_1=record
   _Record_1_integer:  integer;
   _Record_1_string:   string;
 end;
 TRecord_2=record
   _Record_2_integer:  integer;
   _Record_2_string:   string;
   _Record_2_Record_1: array [1..N] of TRecord_1; [COLOR="Red"]не может быть динамическим[/COLOR]
 end;

const
 Record_2:array [0..N] of TRecord_2=
 (
   (
     _Record_2_integer:  0;
     _Record_2_string:   '';
     _Record_2_Record_1: 
     (
       (
	 _Record_1_integer:  0;
	 _Record_1_string:   'string';
       ),
       .......
     );
   );
    .......
 );

 

[sybastian]

Чтобы сделать "открытый" массив попробуйте объявить так:

type
PRecord_1 = ^TRecord_1;
TRecord_1=record
   _Record_1_integer:  integer;
   _Record_1_string:   string;
 end;

 TRecord_2=record
   _Record_2_integer:  integer;
   _Record_2_string:   string;
  [B] _Record_2_Record_1: array of PRecord_1;[/B]
 end;

P.S. Не люблю массивы...

 

[onuryildiz]

thanx.................