Долбаю полдня и никак не могу разобраться
есть такая структура:
т.е. есть запись в структуру которой входит еще одна запись и т.д. (как на картинке)
я делаю так:
Код:
megazap:=tspis.create;
zap1.spis:=Tspis.create;
for i:=1 to k do
begin
zap1.a:=.....
for j:=1 to l do
begin
zap2.a:=...
for z:=1 to m do
begin
zap3.a:=....
end;
zap2.spis.add(zap3)
end;
zap1.spis.add(zap2)
end;
megazap.add(zap1);
На выходе получается дублирование последней записи, т.е. в megazap все записи одинаковые и соответствуют zap1 при i=k(последняя)
Помогите правильно расставить create и free
