Понятия не имею

Вот именно! 😊

@tcota33 тебя уже предупреждали на счет необоснованного удаления сообщений. не надо так делать

Прошу прощения, привычка, удаляю лишние сообщения не несущие особой пользы

Всего лишь заменили указатели на хендлы (индексы в глобальном списке), а скорость и экономия памяти сразу удвоились.

ты замерил?

По ссылке есть сравнения

сравнения с той же либой, но указателями не увидел

всем привет. может кто помнит, в жедаях была интерфейсная обертка, которая позволяла создавать инстанс класса и разрушать без try/finally. потерял и не могу найти название

это?

Так лучше будет:
 ICMSmartPointer<T: class> = reference to function: T;

TCMSmartPointer<T: class> = class(TInterfacedObject, ICMSmartPointer<T>)
 strict private
   FObject: T;
   function Invoke: T; inline;
 public
   constructor Create(AObject: T);
   destructor Destroy; override;
 end;
.....
{ TCMSmartPointer<T> }

constructor TCMSmartPointer<T>.Create(AObject: T);
begin
 FObject := AObject;
end;

destructor TCMSmartPointer<T>.Destroy;
begin
 FreeAndNil(FObject);
 inherited Destroy;
end;

function TCMSmartPointer<T>.Invoke: T;
begin
 Result := FObject;
end;

нашел!!! TJclSafeGuard

👍

Кто нибудь кстати на LAzarus под андройд писал игры?

это опрос? я делал приложение с опенглес

Не, это просто вопрос. Хочу задумку одну реализовать, но пока в выборе инструментария. Вот хочется попробовать лазарь

заюзал новую фичу в 10.4 - инициализацию и финализацию записей.
отлично ложится на код вместо try/finally в нужных местах.
демо-пример:

https://code-kungfu.com/delphi-code/6-delphi-managed-records-making-your-code-smart.html

дописал по образу обращение к пулу соединений к базе. легло красиво на код, try/finally + лестница ушла

в общем. фичу одобряю. полезная

Пример кода, как по мне, так себе...
Не продакшн