Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.930 Beiträge
Delphi 12 Athens
|
AW: Varianten Record mit Class operator declarieren
22. Feb 2024, 10:48
Delphi-Quellcode:
type
TVersionRecMode=(VersionDetails,VersionNumber, VersionArray);
TVersionRec=packed record
class operator Implicit(Rec: TVersionRec): string;
Function ToString:String;
case VersionRec: TVersionRecMode of
VersionDetails: (
major:uInt16;
minor:uInt16;
release:uInt16;
build:uInt16;
);
VersionNumber: ( Version64:Int64 );
VersionArray: ( VersionArr:array [0..3] of uInt16 );
end;
Omg das compiliert....
Warum habe ich das immer nur versucht unten einzusetzen...
Tausend Dank!!!
Andreas Monads? Wtf are Monads?
Geändert von QuickAndDirty (22. Feb 2024 um 10:52 Uhr)
|