Есть такая структура :

.
.
.

Type

Tcode = longint;
Tdata = double;
Tname = string [10];
Ttype_pack = string [10];

TDatas = packed record
Code : Tcode;
Data : Tdata;
end;

TArrDatas = array of Tdatas;

TFullDatas = packed record
Name : Tname;
Type_pack : Ttype_pack;
Datas : TArrDatas;
end;
.
.
.

Var
FullDatas : Tfulldatas;
.
.
.
ВОПРОС : как заполнить структуру FullDatas (включая поле Datas!!!)

Т.е.,например,
fulldatas.name:='AAAAA';
fulldatas.type_pack:='BBBBBB';

- тут всё нормально !!! , а вот дальше :

fulldatas.datas[i].code := 12;
fulldatas.datas[i].data := 223.5;
- а тут проблемы !!! Ведь поле Datas - динамическое !!! Как выделить память???

PLEASE, ПОМОГИТЕ и ОБЪЯСНИТЕ !!!

прежде чем обращаться к элементам динамического массива, следует установить его длину типа так:

SetLength(MyArray,120);

Так как же заполнить эту структуру ?

делай так:

Код

fulldatas.name:='AAAAA'; fulldatas.type_pack:='BBBBBB'; SetLength(fulldatas.datas, n); for i := 0 to n-1 do begin fulldatas.datas[i].code := ...; fulldatas.datas[i].data := ...; end;

n - длина массива

после того как сделал SetLength(fulldatas.datas, n) нельзя обращаться к элементам с индексами >= n.

Цитата

после того как сделал SetLength(fulldatas.datas, n) нельзя обращаться к элементам с индексами >= n.

При обращении к элементам массива можно предварительно делать проверку длины этого массива:

Код

if Length(MyArray)>n then MyArray[n]=...