Внезапно!

[sign]

Блин, в эту сторону сроду не думал, а тут понадобилось и решил попробовать, типа, а почему бы и нет.
Оказалось, в Лазарусе это есть!
Я про объявление констант в классе.

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

  TMain = class(TContainer)
  private
    const CLineVert  : Integer = 0;
    const CLineHorT  : Integer = 1;
    const CLineHorB  : Integer = 2;
    const CTitle     : Integer = 3;
    const CBody      : Integer = 4;
    function GetiTitle: TContainer; inline;
  public
    property iTitle  : TContainer read GetiTitle;
...

function TMain.GetiTitle: TContainer;
begin
  Result := Item[CTitle];
end;




[zub]

Это есть не в лазарусе, а в фпц. Также можно объявлять типы. В какойто степени класс можно рассматривать как юнит или намеспейс - это удобно

[Devel0]

Писать const в каждой строке и тип не обязательно

[tema]

То, что написано в коде - это не константы, а типизированные константы. Суть переменные.