SetOf typecasten in LongInt

**Codehunter**

Hallo!

Wie kann ich folgenden (auszugsweisen) Lazarus-Code nach Delphi übersetzen?

Delphi-Quellcode:

			type

  TSynEditMarkChangeReason =

    ( smcrAdded, smcrRemoved,

      smcrLine, smcrColumn,

      smcrVisible,

      smcrChanged

    );

  TSynEditMarkChangeReasons = set of TSynEditMarkChangeReason;

var

  I: LongInt;

  R: TSynEditMarkChangeReasons;

begin

  I:= LongInt(R);  // <-- Hier kommt "ungültige Typumwandlung"

end;

SetOf ist ja eigentlich kein Ordinaltyp und kann daher in Delphi so auch nicht gecastet werden. Bei Lazarus (FPC) scheints ja zu gehen. Die Frage ist nun, wie kann man das übersetzen?

Grüße
Cody

SetOf typecasten in LongInt

SetOf typecasten in LongInt

Forumregeln