| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help! Как побороть цикличность определения типов записей. [D5, Win95/98]
Paxer © (2002-11-03 11:43:00)Подскажите, как побороть проблему цикличности определения типов записей:
Tr1=record;
i:Integer;
r2:array of Tr2;
end;
Tr2=record
j:integer;
r1:Tr1;
end;
Помнится, еще когда учился в институте, то вроде-бы эта проблема решалась толи директивой, толи еще как, не помню. Поможите люди добры, а то в чужом городе - ни книг, ни спросить у кого...
()utLaw (2002-11-03 21:17:00) [1]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 не сильно напрягает.
Paxer (2002-11-03 12:08:00) [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.
Написал навскидку, но это решение меня не устраивает, как-то криво. Может есть что-то другое, попроще?
AngeL B. (2002-11-03 11:52:00) [3]Проблема решается указателями.
| |
