Multicast Events: Var Parameter

[Stevie]

Kleines Beispiel:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  Spring;

type
  {$M+}
  TCallback = reference to procedure(var x: Integer);

procedure Add(var x: Integer);
begin
  x := x + x;
end;

procedure Mul(var x: Integer);
begin
  x := x * x;
end;

procedure Main;
var
  e: Event<TCallback>;
  i: Integer;
begin
  e.Add(Add);
  e.Add(Mul);

  i := 3;
  e.Invoke(i);
  Writeln(i); // 36

  e.Clear;
  e.Add(Mul);
  e.Add(Add);

  i := 3;
  e.Invoke(i);
  Writeln(i); // 18
end;

begin
  Main;
end.