Generic Type in Ordinal Type casten und umgekehrt

[BUG]

Vielleicht könnte man das mit einem Variant-Record (C++ Union) besser lösen.

[Zacherl]

Zitat von BUG:

Vielleicht könnte man das mit einem Variant-Record (C++ Union) besser lösen.

Da müsste ich für Enumtypen dann leider trotzdem einen Cast vornehmen, wenn ich nicht sämtliche verwendete Enums auch in den Record mit aufnehmen will

[himitsu]

FValue := Ord(Value); ging auch nicht?


Die Größe von Value (T) ist "noch" nicht bekannt, also ist soein Cast unmöglich, da der blöde Compiler das schon während des Parsens versucht aufzulösen und nicht erst bei der Verwendung (entgültigen Implementierung).

Man kann sowas nur durch böse Casts umgehen, muß dann aber selber peinlichst genau auf die Datengröße achten.
FValue := PUInt32(@Value)^;

[BUG]

Und so etwas geht nicht? (Sry, kein Delphi am Start ...)

Delphi-Quellcode:

type
  TMyRec<T> = record
  strict private
    case byte of
      0: (FMem: UInt32);
      1: (FOrd: T);
  public
    function GetValue: T;
    procedure SetValue(const Value: T);
  end;

function TMyRec<T>.GetValue: T;
begin
  Result := FOrd;
end;

procedure TMyRec<T>.SetValue(const Value: T);
begin
  FOrd := Value;
end;

[Zacherl]

Danke euch beiden, werde das später mal ausprobieren Böse Casts sind ok, da ich die Klassen nur intern verwende und da ja genau weiß, wie groß meine Typen sind. Zur Sicherheit kommt noch ein Assert in die Getter/Setter.

Edit:

@BUG:
Typparameter T benötigt evtl. Finalisierung - im varianten Record nicht zulässig.

@himitsu:
Funktioniert perfekt!

[jaenicke]

Ich habe das anders gelöst, in meinem Fall mit einem String-Konverter. Es gibt einfach eine Liste mit Konvertern, und je nach Typ T wird daraus der passende ausgewählt und dann die Konverterfunktion für diesen Typ aufgerufen.
So kann man das typsicher generisch umsetzen und braucht keine unsicheren Casts.

Bei Bedarf kann ich das auch noch genauer zeigen.