[friz]

Долбаю полдня и никак не могу разобраться
есть такая структура:


т.е. есть запись в структуру которой входит еще одна запись и т.д. (как на картинке)
я делаю так:

Код:

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

[friz]

up! все еще не решено