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