Hallo,
ich möchte eine Liste erstellen, in die man mehrere Events einfügen kann.
Ich habe mir folgendes überlegt:
Delphi-Quellcode:
type
TPushEvent = procedure(ALua:Lua_State;ASender:TObject;ATable:integer);
type TPushEventList = class(TList)
private
function GetItem(AIndex:integer):TPushEvent;
procedure SetItem(AIndex:integer;AItem:TPushEvent);
protected
public
property Items[AIndex:integer]:TPushEvent read GetItem write SetItem;default;
published
end;
{ TPushEventList }
function TPushEventList.GetItem(AIndex:integer):TPushEvent;
begin
result := inherited Items[AIndex];
end;
procedure TPushEventList.SetItem(AIndex:integer;AItem:TPushEvent);
begin
inherited Items[AIndex] := AItem; <---
end;
Leider funktioniert dieser Code nicht. An der mit dem Pfeil makierten Stelle meckert er "Nicht genügend wirkliche Parameter".
Außerdem kommt die selbe Fehlermeldung, wenn ich ein Event einfügen möchte:
AList.Add(OnPush);
Ich kenne mich leider mit Events nicht so richtig aus, garantiert ist die Lösung ganz einfach.
Danke für eure Hilfe,
igel457