TValue.AsVariant und Boolean - Fehler?

[Neutral General]

Hallo,

Mir ist gerade aufgefallen, dass die Umwandlung eines Boolean-TValues in ein Variant nicht funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var val: TValue;
    bVar: Variant;
begin
  val := true;
  bVar := val.AsVariant;
  ShowMessage(VarToStr(bVar) + ' - ' + IntToStr(VarType(bVar)));
end;

Angezeigt wird "1 - 20". Und VarType 20 ist varInt64.

Das Problem liegt in der System.RTTI:

Delphi-Quellcode:

function Conv2Variant(const ASource: TValue; ATarget: PTypeInfo; out AResult: TValue): Boolean;
var v: Variant;
begin
  // ..
  case ASource.Kind of
    // ..
    tkEnumeration:
      v := ASource.AsOrdinal;
    // ..
  end;
  // ..
end;

In meinen Augen sollte da der Spezialfall

Delphi-Quellcode:

(ASource.Kind = tkEnumeration) and (ASource.TypeInfo = TypeInfo(Boolean))

behandelt werden, damit bei der Umwandlung von einem Boolean-TValue auch ein Variant mit dem Typ varBoolean rauskommt.

In meinen Augen ist das ein Fehler, oder sehe ich das falsch?

[Uwe Raabe]

In Tokyo sieht das mittlerweile so aus:

Delphi-Quellcode:

    tkEnumeration:
        if ASource.IsType<Boolean> then
          v := ASource.AsBoolean
        else
          v := ASource.AsOrdinal;

[Neutral General]

Sehr gut!
Dann hat sich das erledigt :)

[Stevie]

Wusste doch, dass ich das schonmal gesehen habe - nur der Vollständigkeit halber: https://quality.embarcadero.com/browse/RSP-12449

In die andere Richtung ist übrigens noch fehlerhaft: https://quality.embarcadero.com/browse/RSP-20160 :wall: