Упреждающее описание класса

[Tango]

Здравствуйте.

Если Есть класс, который нужно указать до его объявления, например.

Код: Выделить всё

unit Abstrqact;

Interface

Procedure DoЧтото(ClassA:TMyClass);

Implementation

  TMyClass = class
    a:Integer;
    Procedure ClassActions;
  end;

//////

end.


Как сделать так что бы и процедура объявилась и класс не был выставлен напоказ.
В данном случае это всего лишь понятный пример и не выставлять класс напоказ я не преследую.

[Vadim]

Tango
Обычно просто берут, и объявляют класс:

Код: Выделить всё

Type
TMyClass = class;

TMyClass2 = class
  FClass: TMyClass;
end;

Но его ведь всё равно придётся описывать где-то в другом месте, иначе зачем это Вам?

[Tango]

Так не прокатывает
TMyClass = class;
Type "TDCLDBGrid" is not completely defined

[Vadim]

Type "TDCLDBGrid" is not completely defined

А вот это вопрос уже к Вам - где Вы это берёте и почему Ваш класс объявлен не до конца. Это чисто Ваши проблемы. Может Вас кошка отвлекает и Вы забываете окончить объявление класса.
То, что я Вам написал - работает, но только с цчётом именно того, что я Вам написал.

[Tango]

А если Typы разные из разных секций?

[Лекс Айрин]

Tango, пример такого описания, допустим, есть в Controls.pp

Код: Выделить всё

TWinControl = class;
.....
{намного позже}
......
TWinControl = class(TControl)
  private
    FAlignOrder: TFPList; // list of TControl. Last moved (SetBounds) comes first. Used by AlignControls.
    FBorderWidth: TBorderWidth;
    FBoundsLockCount: integer;
  .........
    function BrushCreated: Boolean;
    procedure EraseBackground(DC: HDC); virtual;
    function IntfUTF8KeyPress(var UTF8Key: TUTF8Char;
                              RepeatCount: integer; SystemKey: boolean): boolean; virtual;
    procedure PaintTo(DC: HDC; X, Y: Integer); virtual; overload;
    procedure PaintTo(ACanvas: TCanvas; X, Y: Integer); overload;
    procedure SetShape(AShape: TBitmap); overload;
    procedure SetShape(AShape: TRegion); overload;
  end;                                                 


[Vadim]

А если Typы разные из разных секций?

Имеет значение толшько тот основополагающий фактор - прежде чем использовать тот или иной компонент, его нужно объявить. Где Вы его объявляете - Ваше дело, лишь бы объявляли до первого использования.

[Alex2013]

Type
TMyClass = class;

Procedure DoЧтото(ClassA:TMyClass);
....

Type

TMyClass2 = class
FClass: TMyClass;
end;

Видимо не верно по моему нужно так :

Код: Выделить всё

Type
TMyClass = class;

Procedure DoЧтото(ClassA:TMyClass);
...
Type
TMyClass = class
...
end;