Как в generic сослатся на его будущий тип?

[AbakAngelSoft]

Пример кода:

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

type
  { GPat }
  generic GPat<ItemType> = class(TObject)
  public
    procedure Assign(APat: <SelfType>);
  end;

type
  TMyPat = specialize GPat<TObject>;


и где-то далее

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

var
  Pat1, Pat2: TMyPat;
begin
  Pat1.Assign(Pat2);


Что писать вместо <SelfType>?

[hinst]

доки по фпц тебе в руки... там всё подробно написано

[Дож]

Пример кода:

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

type
  { GPat }
  generic GPat<ItemType> = class(TObject)
  public
    procedure Assign(APat: <SelfType>);
  end;
type
  TMyPat = specialize GPat<TObject>;


и где-то далее

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

var
  Pat1, Pat2: TMyPat;
begin
  Pat1.Assign(Pat2);


Что писать вместо <SelfType>?

Если судить по документации (2.2.2), то этого сделать нельзя - обобщение не может быть типом данных. Будем надеяться, что в будущих версиях такой функционал появится.