Thema
:
Delphi
Generic Type in Ordinal Type casten und umgekehrt
Einzelnen Beitrag anzeigen
BUG
Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
#
5
AW: Generic Type in Ordinal Type casten und umgekehrt
20. Mär 2015, 13:23
Und so etwas geht nicht?
(Sry, kein Delphi am Start ...)
zusammenfalten
·
markieren
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
;
Zitat
BUG
Öffentliches Profil ansehen
Mehr Beiträge von BUG finden