Überkreuz-Referenz zw. Klassen

[himitsu]

Ab Delphi 2006 / Turbo Delphi, kann man Typen und Constanten innerhalb einer Klasse definieren.

Delphi-Quellcode:

type
  TMyClass = class
    const 
      X = 3;
    type 
      T = Byte;
  end;

Wegen der Übersichtlichkeit lege ich mir dafür aber jeweils eigene Sichtbarkeitsbereiche an

Delphi-Quellcode:

type
  TMyClass = class
  strict private const 
    A = 'ganz geheim und nur für TMyClass';
  private const 
    Z = 'abc';
  public const 
    X = 666;
    Y = -7;
  private type 
    TGeheim = record
      i: Integer;
      s: string;
    end;
  public
    constructor Create;
  end;

Intern als X nutzbar und extern als TMyClass.X (aber nur weil von außen sichbar, da Public)