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

_BSW_

Member
Joined
Oct 16, 2008
Messages
5
Reaction score
3
Age
49
Доброго времени суток, господа. Собственно вопрос вот в чем, имеется следующее:
Code:
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;
и вот хочется сделать массив-константу. Делаю вот так:
Code:
const
 Record_2:array [0..N] of TRecord_2=
 (
   (
     _Record_2_integer:  0;
     _Record_2_string:   '';
     _Record_2_Record_1: [COLOR="Red"]???????[/COLOR]
   );
    .......
 );
Красными вопросами выделил то место которое вызывает сложность. Можно-ли как-то это сделать?? Заранее спасибо.
 
Last edited by a moderator:

_BSW_

Member
Joined
Oct 16, 2008
Messages
5
Reaction score
3
Age
49
Судя по всему, тема либо не интересна, либо ни кто не знает решения (в чем я сомневаюсь).
Раз сам задал вопрос то сам и буду отвечать, если конечно кому-то интересно.
Подсказали такое решение:
Code:
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

Member
Joined
May 3, 2007
Messages
5
Reaction score
0
Location
NA
Чтобы сделать "открытый" массив попробуйте объявить так:

Code:
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. Не люблю массивы...
 
Top