Вот такая бодяга есть, мне подсказали ещё:

BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_USER+1, TMessage, WMUSER1)
VCL_MESSAGE_HANDLER(WM_USER+2, TMessage, WMUSER2)
END_MESSAGE_MAP(TForm)
void fastcall WMUSER1(TMessage & msg);
void fastcall WMUSER2(TMessage & msg);

Макросами, короче :))

Этим варианты и хороши, что позволяют пользоваться run-time типизацией, когда тип переменной заранее неизвестен и определяется внешними данными.

Это только поначалу... Потом, при рефакторингах и доработках, удобство превращается в тыкву и становится помехой

Бросай ты этот билдер

Это инструмент для конкретных задач, связанных с обменом данными. Как интерфейсы.

Интересно, что бы сказал по поводу вариантов для сериализации Marco Cantu.

Есть еще TValue

Это вроде хелпер для Variant?

Да вроде бы нет

Тогда непонятно, зачем оно нужно. Повторяет функционал Variant.

TValue заточено на работу с RTTI
http://delphi2010.ru/%D0%B4%D0%B5%D1%82%D0%B0%D0%BB%D1%8C%D0%BD%D0%BE-%D0%BE-tvalue/

Tvalue сохраняет тип значения после присваивания, afair

TValue is not meant for converting data types but for transportation of values when using RTTI.

It only allows for data types to be converted that are directly assignment compatible (like for example Integer to Int64 or Byte to Integer). But unlike Variant it does not allow for example converting a string containing a number to be cast to Integer but raises an EInvalidCast exception.

А вот вы такие умные, подскажите...

Лоханулся я тут с дженериками конкретно, решил сделать универсальную функцию считывания параметров из бд, типа:

Function GetValue<T>(ParamName: string; DefValue: T): T;

Красота! Использование:

Limit :=GetValue('LimitConnection', 1);

Да только если в ходе работы функция из бд вытащит число более 254, то оно исказится, переполнение и вернётся фигня.
Потому что для дефолтного значения 1 она сгенерирует smallInt версию.

И все компилится, и долго работало правильно. Пока в бд не оказалось большого числа и программа стала считывать вместо 10542 какое то значение типа 58 🙈

И вот как как надо было красиво написать универсальную функцию добывания значений?(((

Если типа:

GetValue<T, P>(ParamName: string; DefValue: T): P;

То вся красота теряется (

поставь дефолтное значение 1.0 (с нулем после точки) это будет double тип дефолтный.

также можешь в значение по умолчанию сразу писать нужный тип приведением типов Integer(1)

¿¿¿ привет