Hallo,
Ich würde gerne in einer TStringList per AddObject('SomeStr', @ReadBla); hinzufügen
ReadBla ist definiert als function ReadBla(AItem, BItem : Tobject) :boolean.
Der Aufruf AddObject wie oben funktioniert nicht. Also Baue ich folgendes
TReadMethod = function(A, B : TObject) : boolean of object;
dann
Delphi-Quellcode:
var
AMethod : TReadMethod;
begin
AMethod := ReadBla;
AStringList.AddObject('Bla', AMethod);
end;
Das funktioniert, obwohl ich mir nicht sicher bin ob AMethod wirklich ein Object ist.
Jetzt habe ich das Problem wie rufe ich AMethod aus AStringList auf?
(AStringList.objects[0] as TReadMethod)(AObject, BObject); //FUNKTIONIERT NICHT!
Wenn mir da jemand weiterhelfen könnte wäre das sehr schick.
Gruß
Wenn das Meer unruhig ist und der Wind die Wellen treibt, erfreut es, vom Strand aus die Mühen eines Anderen zu beobachten.