Convert-DbValue to enum using projections

BIZ TMS Aurelius
2

It is private indeed, but you can workaround it using a hack:

type
  TInternalConverter = class(TLegacyDBValueConverter)
  public
    procedure DBToValue(const DBValue: Variant; var Value: TValue); reintroduce;
  end;

{ TInternalConverter }

procedure TInternalConverter.DBToValue(const DBValue: Variant; var Value: TValue);
begin
  inherited DBToValue(DBValue, Value);
end;

{ some code}

procedure TForm2.Button1Click(Sender: TObject);
var
  Conv: TLegacyDBValueConverter;
  Value: TValue;
  Enum: TEntityEnum;
begin
  Conv := Manager.Explorer.FindEntityTypeFromClass(TEntity).AllColumns.Find('Enum').Wrapper as TLegacyDBValueConverter;
  TInternalConverter(Conv).DBToValue('two', Value);
  Enum := Value.AsType<TEntityEnum>;
end;