Einzelnen Beitrag anzeigen

Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#5

AW: Generic Type in Ordinal Type casten und umgekehrt

  Alt 20. Mär 2015, 13:23
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;
  Mit Zitat antworten Zitat