Help! Как побороть цикличность определения типов записей.

← →
Paxer (2002-11-03 11:43) [0]

Подскажите, как побороть проблему цикличности определения типов записей:
Tr1=record;
i:Integer;
r2:array of Tr2;
end;
Tr2=record
j:integer;
r1:Tr1;
end;
Помнится, еще когда учился в институте, то вроде-бы эта проблема решалась толи директивой, толи еще как, не помню. Поможите люди добры, а то в чужом городе - ни книг, ни спросить у кого...

← →
AngeL B. (2002-11-03 11:52) [1]

Проблема решается указателями.

← →
Paxer (2002-11-03 12:08) [2]

Это что-то типа:
Type

Tr1=record;
i:Integer;
r2:array of Pointer;
end;
Tr2=record
j:integer;
r1:Tr1;
end;
var
r1:Tr1;
p:^Tr2;
begin
p:=r1.r2[0];
p^.j:=0;
end.

Написал навскидку, но это решение меня не устраивает, как-то криво. Может есть что-то другое, попроще?

← →
()utLaw (2002-11-03 21:17) [3]

2 Paxer:
Интересно, а как Вы себе вообще это представляете:
В первой структуре (ее размер пока еще не известен) есть массив из вторых структур (их размер тоже пока еще не известен), в каждой из которых опять массив из первых структур и так до бесконечности?
Тут либо указатели, либо (я не уверен) в Delphi версии > 3 есть задание размера массива в процессе работы. Но тогда Ваш вариант не должен вызвать ошибку. А иначе -
type Pa2 = ^Ta2; Tr1 = record i: Integer; r2: Pa2; end; Tr2 = record j: integer; r1: Tr1; end; Ta2 = array [1..3] of Tr2; var r1: Tr1; begin New(r1.r2); r1.r2^[2].j := 2; Dispose(r1.r2); end.
Код весьма компактный и указатель imho не сильно напрягает.

Help! Как побороть цикличность определения типов записей. Найти похожие ветки