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

Delphi-Quellcode:

class operator Implicit(Rec: TVersionRec): string;

oder

Delphi-Quellcode:

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

Delphi-Quellcode:

private

einen neuen Block anfangen oder mit

Delphi-Quellcode:

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