Recordhelper - Methode mit gleichem Namen wie im Record

[Uwe Raabe]

Das mit dem inherited funktioniert bei records ja leider nicht. In diesem Fall kann man das aber umgehen:

Delphi-Quellcode:

function TValueHelper.AsVariant: Variant;
begin
  if (IsType<Boolean>()) then
    Result := AsBoolean()
  else
    Result := AsType<Variant>;
end;