Generische Interface-GUIDs

[himitsu]

Delphi-Quellcode:

const
  // Die Konstante kann auch aus einer gemeinsamen UNIT oder .INC kommen.
  // resourcestring anstatt const geht aber nicht, weil Konstante eine GUID und kein String sein muß.
  MyGUID: TGUID = '{BE3C619C-001C-490E-A377-C08D51E18C0C}';

type
  IGenItf<T> = interface
    [MyGUID]
    function Foo: T;
    procedure Poo;
  end;

Delphi-Quellcode:

type
  IGenItf<T> = interface
    [{$INCLUDE 'MyGUID.inc'}]    // '{BE3C619C-001C-490E-A377-C08D51E18C0C}'
    function Foo: T;
    procedure Poo;
  end;

Delphi-Quellcode:

type
  IGenItf<T> = interface
    {$INCLUDE 'MyGUID.inc'}      // ['{BE3C619C-001C-490E-A377-C08D51E18C0C}']
    function Foo: T;
    procedure Poo;
  end;

nur Nachfolgendes geht natürlich nicht

Delphi-Quellcode:

type
  IGenItf<T> = interface
    ['{$INCLUDE MyGUID.inc}']    // {BE3C619C-001C-490E-A377-C08D51E18C0C}
    function Foo: T;
    procedure Poo;
  end;

Delphi-Quellcode:

type
  IGenItf<T> = interface
    ['{{$INCLUDE MyGUID.inc}}']  // BE3C619C-001C-490E-A377-C08D51E18C0C
    function Foo: T;
    procedure Poo;
  end;