type
TMultiEvent<TEvent> = class
private
fEvent : TEvent; // docelowo lista Eventów
public
procedure add(arg: TEvent); // dodaje event do listy
procedure execute(); // wywoluje wszystkie przypisane eventy
end;
implementation
procedure TMultiEvent.add(arg: TEvent);
begin
fEvent := arg;
end;
procedure TMultiEvent.execute;
begin
fEvent; // error here
end;
do klasy przekazywany bedzie typ eventu np:
TOnSmthg = procedure(arg: integer);
jak wywołać procedure któa siedzi pod fEvent?