Как передать в Unit1 объект, который находится в Unit3, избегая ошибки: Circular unit reference to ‘Unit3′?

Question

[Дмитрий Афонченко]

Добрый день, товарищи. Появился следующий вопрос:
Есть класс TCell, который для удобства вынесен в отдельный Unit

Type
    TCell = class

  Public
        X1, Y1: Integer;                  // Координата первой точки
        X2, Y2: Integer;                  // Координата второй точки
        Width_cell: Integer;              // Ширина клетки
        Status: Integer;    // Статус клеточки

        // Пользовательский конструктор
        Constructor CreateUserCell(my_X1, my_Y1, my_X2, my_Y2: Integer);

        Procedure SetColorRed();    // Установить красный цвет
End;

Под Implementation вот такой код:

procedure TCell.SetColorRed;
begin
      Form3.Image1.Canvas.Brush.Color := clRed;
end;

Компилятор жалуется на то что я использую Form3 в другом Unit. Вот такая ошибка возникает: Circular unit reference to ‘Unit3′ Вопрос, как передать объект из Unit3 в другой Unit. Заранее спасибо за ответы и комментарии. Буду благодарен хотя бы за рекомендацию по поводу того, как загуглить.

Answer 1

[zed]

Потому что нужно абстрагироваться в написании кода. Перепишите свою функцию вот так:

procedure TCell.SetColorRed(ACanvas: TCanvas);
begin
    ACanvas.Brush.Color := clRed;
end;

и вызывайте соответственно:

VCell.SetColorRed(Form3.Image1.Canvas);

Тогда ваш юнит ничего не будет знать о форме и, соответственно, её можно будет убрать из uses и разорвать циклическую зависимость.

Comments

[Дмитрий Афонченко]

Спасибо большое, попробую так сделать, это, кстати примерно то, что было нужно.

[Дмитрий Афонченко]

Еще раз спасибо, это то что нужно!

Answer 2

[Anton Kuzmichev]

Плохо помню Delphi, попробуйте перенести в одном из модулей конфликтный uses из interface в implementation. Как раз вот кстати в этом модуле, куски кода которого у вас приведены.

Comments

[Дмитрий Афонченко]

Так пробовал делать, увы, не работает.

Answer 3

[kalapanga]

Как Circular unit reference лечить Вам уже написали, но, по-моему, тут "что-то в консерватории поменять нужно". Не должно в методах класса быть обращения к каким-то "левым" (не относящимся к этому классу) формам и т.п. Такой метод должен быть не у Вашего класса, а у формы - Form3.SetColorRed.

Comments

[Дмитрий Афонченко]

Вот-вот, полностью Вас понимаю) Мне хотелось что-то вроде аналога this в Delphi найти, но я не знал даже как загуглить толково этот вопрос. Если честно не фанат Delphi, но, как говорится не мы такие жизнь такая :-)

[zed]

> аналога this в Delphi найти

Self же!