Forum: Algorithmen, Datenstrukturen und Klassendesign
by hanvas,
25. Feb 2015
Es gibt aber etwas was ich nicht ganz verstehe. In meinem ursprünglichen Posting ist die Verwendung von PMethod nach der Verwendung von Application geschehen. Dieser Fehler hätte Dir deshalb doch schon vor dem anderen auffallen müssen. Kann es sein das Du mich auf die Schippe nimmst?
cu Ha-Jö
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hanvas,
25. Feb 2015
Es gehört sich mit ^, das Fehlen war Prellen meiner Tastatur.
function jobRegister : TJobRegister;
begin
if not Assigned(reg) then
reg := TJobRegister.Create(Application);
result := reg; // ^^^^^^^^^^^
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hanvas,
23. Feb 2015
Habe leider zwei Fehler eingebaut. Bei Destroy fehlt der geerbte Destructor also bitte lieber so:
Destructor TJobRegister.Destroy;
var i : Integer;
p : pMethod;
begin
for i := 0 to FRegister.Count-1 do
Forum: Algorithmen, Datenstrukturen und Klassendesign
by hanvas,
22. Feb 2015
Das war es doch was ich schon ansatzweise beschrieben (und den größten Teil des Überbaus gleich mitgeliefert) habe, indem man das Objekt welches die später aufzurufende(n) Methoden bereistellt diese selbst bei einer zentralen Instanz registrieren (und gff. deregistrieren) lässt, kann man die Methoden unter einem beliebigen Namen aufrufen, die Methode ist immun gegen Refactorings, relativ einfach...