Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как разрулить circular unit reference? [D6, WinXP]

ranetka © (2004-11-29 13:43:00)
необходимо реализовать такой случай:
<unit1>
interface
uses unit2; // там описан тип В
type
A=class
m_b : B;
end;

<unit2>
interface
uses unit1; // там описан тип А
type
B=class
m_a : A;
end;
естественно, компиллятор выдает ошибку circular unit reference to unit1
но здесь нельзя перенести один из uses-ов в часть implementation.
что делать? есть в delphi что-то вроде заголовочных файлов, как в с++?

ranetka (2004-12-03 02:34:00) [1]
всем спасибо, изменила логику на такую:
<unit1>
uses unit2
a=class;
m_b:B;
procedure SomeProc();
end;
procedure a.SomeProc();
begin
m_b:=SomeFunc();
...
end;

<unit2>
b=class
function SomeFunc():b
end;

Плохиш (2004-11-29 17:52:00) [2]

> ranetka © (29.11.04 13:43)

Объедини A и B в одном модуле.

Poirot (2004-11-29 17:35:00) [3]
меняй архитектуру. Если есть такая проблема - значит что-то в неё не так. Вообще вобщем случае можно поместить Uses для другого модуля в implementation. Но в твоём случае это не поможет

ranetka (2004-11-29 17:26:00) [4]
и как тогда в паскале решаются подобные проблемы? только изменением логики?

Digitman (2004-11-29 13:52:00) [5]

> есть в delphi что-то вроде заголовочных файлов, как в с++?

нет.
Паскаль-код компилируется по однопроходной схеме.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »