DSharp - Data bindings, MVVM und mehr für Delphi 2010 und höher

[BlackSeven]

Hallo Stefan,

folgender Code löst eine Exception aus:

Delphi-Quellcode:

type

  {$M+}
  TEventTest = reference to procedure(const AValue: Int64);
  {$M-}

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    _EventTest : Event<TEventTest>;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  _EventTest.EventHandler.Add
  (

    procedure(const AValue: Int64)
    begin

      ShowMessage(IntToStr(AValue));

    end

  );

  _EventTest.EventHandler.Invoke(1);

end;

Das Problem liegt an Int64.

Zitat:

TEventTest = reference to procedure(const AValue: Int64);

Mit Int32 funktioniert das Ganze.