Funktionszeiger in StringList.Objects speichern und nutzen

[himitsu]

das Zuweisen das ist schonmal OK

Delphi-Quellcode:

var
  ARead : PReadMethod;
begin
  New(ARead);
  ARead^ := ReadBla;
  AStringList.AddObject('Bla', ARead);
end;

das Auslesen einfach so
PReadMethod(AStringList.Objects[0])^ Und am Ende nicht das Freigeben (Dispose) vergessen.


@DeddyH: wenn er :=ReadBla nutzt, dann wird dieser Code vermutlich direkt in der Klasse ( :=Self.ReadBla ) rumliegen ... also kein Problem