D7 - циклический вызов
Есть unit1, в котором в uses'е описаны unit'ы с одинаковыми функциями и вызываются в зависимости от обстановки.
НО!!!
Имеется необходимость из этих unit'ов вызвать unit1.
Примерно так:
Unit1->Unti2->Unit1->Unit3
Дельфятник, естественно, ругается.
ВОПРОС: Как его от этого отучить?
Помнится мне что-то на счет IFDEF, но абсолютно забыл реализацию...
НО!!!
Имеется необходимость из этих unit'ов вызвать unit1.
Примерно так:
Unit1->Unti2->Unit1->Unit3
Дельфятник, естественно, ругается.
ВОПРОС: Как его от этого отучить?
Помнится мне что-то на счет IFDEF, но абсолютно забыл реализацию...
br />
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
[COLOR=red]implementation
uses Unit2,Unit3; [/COLOR]
{$R *.dfm}
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
[COLOR=red]implementation
uses Unit1,Unit3; [/COLOR]
{$R *.dfm}
end.
и т.д.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
[COLOR=red]implementation
uses Unit2,Unit3; [/COLOR]
{$R *.dfm}
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
[COLOR=red]implementation
uses Unit1,Unit3; [/COLOR]
{$R *.dfm}
end.
и т.д.