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