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)