[Pyro]

в старших дельфях можно так попробовать:

Код:

type
   TMyClass = record // хз работает ли на классах
     class operator Implicit(a: Integer): TMyClass; //запись?
     class operator Implicit(a: TMyClass): Integer; //чтение?

http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29