Hi,
Das geht dann (fast) genauso, wie mit deinem Record. Du erstellst doch mehrere Records (z.B. mit Getmem) und fügst sie der Liste hinzu.
Erstelle stattdessen mehrere Instanzen der Klasse und füge sie der Liste hinzu.
Delphi-Quellcode:
type
tMyClass = class
private
FWert: integer;
FOnChange: tNotifyEvent;
procedure SetWert(Value:integer);
function GetWert:integer;
public
property Wert: integer read GetWert write SetWert;
property OnChange: tNotifyEvent read FOnChange write FOnChange;
end;
procedure tMyClass.SetWert(Value:integer);
begin
FWert := Value;
if Assigned(FonChange) then
FOnChange(Self);
end;
function tMyClass.GetWert:integer;
begin
result := FWert;
end;
...
aClass := tMyClass.Create;
aClass.OnChange := WertAenderung;
aList.Add(aClass);
...
procedure tMyForm.WertAenderung(Sender:tObject);
begin
showmessage('aha es hat sich was geändert');
end;
und wenn es zum Aufräumen kommt, nicht vergessen die Objekte der Liste freizugeben. Nur nicht mit FreeMem, sondern mit Free.
P.S.
Jetzt kommen gleich wieder die Einwände eine TOjectList zu nehmen, weil man das dann der Liste überlassen kann, aber es geht hier um das Verständnis und nicht um die Eleganz.
