Внезапно!

Любые обсуждения, не нарушающие правил форума.

Модератор: Модераторы

Внезапно!

Сообщение sign » 24.03.2017 13:26:26

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

Код: Выделить всё
  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;


sign
энтузиаст
 
Сообщения: 865
Зарегистрирован: 30.08.2009 09:20:53

Re: Внезапно!

Сообщение zub » 24.03.2017 13:30:38

Это есть не в лазарусе, а в фпц. Также можно объявлять типы. В какойто степени класс можно рассматривать как юнит или намеспейс - это удобно
zub
долгожитель
 
Сообщения: 2190
Зарегистрирован: 14.11.2005 23:51:26

Re: Внезапно!

Сообщение Devel0 » 24.03.2017 18:00:37

Писать const в каждой строке и тип не обязательно
Devel0
новенький
 
Сообщения: 63
Зарегистрирован: 24.07.2011 10:43:13

Re: Внезапно!

Сообщение tema » 24.03.2017 23:39:16

То, что написано в коде - это не константы, а типизированные константы. Суть переменные.
tema
постоялец
 
Сообщения: 338
Зарегистрирован: 24.03.2011 20:19:27


Вернуться в Потрепаться

Кто сейчас на конференции

Сейчас этот форум просматривают: Сквозняк и гости: 2

Рейтинг@Mail.ru