Generic Type in Ordinal Type casten und umgekehrt

[Zacherl]

Hallo zusammen,

gibt es eine Möglichkeit generische Typen in Ordinalwerte zu casten und umgekehrt? Leider verweigert Delphi mir selbst einen harten Cast der Form T(IntVal) oder Integer(TVal) Testklasse ist wie folgt:

Delphi-Quellcode:

type
  TMyRec<T> = record
  strict private
    FValue: UInt32;
  public
    function GetValue: T;
    procedure SetValue(const Value: T);
  end;

function TMyRec<T>.GetValue: T;
begin
  // Ungültiger Cast
  Result := T(FValue);
end;

procedure TMyRec<T>.SetValue(const Value: T);
begin
  // Ungültiger Cast
  FValue := UInt32(Value);
end;

Warum ich FValue nicht direkt als T deklariere? Es geht darum, dass ich verschieden große (Ordinal)Typen auf eine feste Größe von 4 Byte bringen muss, aber nach außen hin trotzdem gerne mit den korrekten Typen arbeiten würde. Das ganze wollte ich mir in dieser generischen Form und entsprechenden Class Operatoren vereinfachen.

Klar ist auch, dass so ein Cast "gefährlich" ist solange Delphi keine Constraints bezüglich Ordinaltypen unterstützt (und man auch nicht wie in C++ zur Compiletime die Größe eines generischen Datentyps asserten kann), aber die Klassen werden eh nur intern von mir verwendet.

Viele Grüße
Zacherl