SetOf typecasten in LongInt

[Bummi]

Casten kann nicht gehen, aber Du kannst Dir was basteln

Delphi-Quellcode:

Function SynEditMarkChangeReasons2Int(r:TSynEditMarkChangeReasons):LongInt;
begin
  Result := 0;
  Move(r,Result,SizeOf(r));
end;

Function Int2SynEditMarkChangeReasons(i:LongInt):TSynEditMarkChangeReasons;
begin
  Result := [];
  Move(i,Result,SizeOf(TSynEditMarkChangeReasons));
end;


procedure TForm3.Button1Click(Sender: TObject);
var
 r,r2:TSynEditMarkChangeReasons;
 i:LongInt;
begin
 r := [smcrAdded,smcrChanged];
 r2 := [];

 Caption := IntToStr(SizeOf(r));

 i := SynEditMarkChangeReasons2Int(r);
 r2 := Int2SynEditMarkChangeReasons(i);
 if r2= [smcrAdded,smcrChanged] then Showmessage('Passt');

end;