Varianten Record mit Class operator declarieren

[QuickAndDirty]

Hallo wie deklariere ich das hier

Delphi-Quellcode:

type
TVersionRecMode=(VersionDetails,VersionNumber, VersionArray);
TVersionRec=packed record
case VersionRec: TVersionRecMode of
  VersionDetails: (
    major:uInt16;
    minor:uInt16;
    release:uInt16;
    build:uInt16;
  );
  VersionNumber: ( Version64:Int64 );
  VersionArray: ( VersionArr:array [0..3] of uInt16 );

end;

so, dass das hier
class operator Implicit(Rec: TVersionRec): string; oder
Function ToString:String; mit drin ist?

[himitsu]

Da leider, auch nach Jahrzenten und vielen vielen vielen vielen vielen vielen vielen vielen vielen vielen BugReports/FeatureRequests, immernoch das END vom CASE fehlt, mußt kannst du alles Andere nur vor dem CASE einfügen.

Danach dann mit private einen neuen Block anfangen oder mit var von Funktion wieder auf Variable Felder zurückschalten.



PS: Stell dir einfach vor, dass nach record/private/public ein implizites VAR steht.

[QuickAndDirty]

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!!!