Пример реализации синглтон

любой юнит возьми

О чём речь?

Recent action посмотри начало

я тоже хочу

Первым делом. Увидел только твоё сообщение

Для этого надо банхаммер заиметь  :)

Кто-то юзал PythonEngine в Lazarus? Подскажите как запустить 'print("Hello world.")'?

давайте сходку организуем )

Тех кто юзал питон в лазарусе?

Эх, Варка сегодня была (?) :)

Не завезли пока. В
процессе

кажется всех кинули )

нам паскалистов достаточно будет

@gbakhtadze, а где посмотреть как ты стектрейс заполняешь?

сюда еще не запилил. было где-то заполнение для FPC и через JCLDebug

перенесу как будет валиться где-нибудь :)

Чят, у мну вопрос по интерфейсам. Так получилось, что интерфейсы до этого момента не приходилось использовать. Основное назначение - это самоуничтожение класса со всеми своими внутренними объектами. А то получается так, что при закрытии приложения вываливается сообщение об утечках памяти. Так вот. В классе есть два объекта. Т.к. интерфейсы не могут иметь поля (переменные VAR), то пришлось объявить TObjectDictionary как результат функции.  Не знаю, правильно ли это, т.е. функции возвращают эти самые TObjectDictionary. Списки один раз наполняются и используются глобально в разных формах приложения. В конце концов списки должны самоуничтожиться.  В конструкторе класса вызываю методы создания и наполнения списков.

procedure TKvxListsStyles.FillRegionsStyles;
Var
 Attribs: TUniCellAttribs;
begin
 if Not Assigned(RegionsList) then
   RegionsList := TObjectDictionary<Integer, TUniCellAttribs>.Create([doOwnsValues])
 else
   RegionsList.Clear;
// потом в цикле наполняю список

 RegionsList.Add(0, TUniCellAttribs.Create(True));
 RegionsList.Items[0].Font.Color := -1;