Forum: Object-Pascal / Delphi-Language
Delphi
by berens,
23. Sep 2009
Also hier müssen auch noch beide @ weg? Weil bisher hat es auch so gut geklappt.
function THAL_Observer.IndexOfEvent(_Event: TNotifyEvent): Integer;
var i: Integer;
begin
for i := 0 to FListSubscriber.Count - 1 do
if @THAL_ObserverItem(FListSubscriber).Event = @_Event then
begin
Result := i;
Forum: Object-Pascal / Delphi-Language
Delphi
by berens,
3. Sep 2009
@KrasserChecker: Das sieht verdammt gut aus und klappt auch soweit einwandfrei im Praxistest.
Das tolle ist so auch, dass sich nicht der Subscriber um den Wrapper kümmern muss, sondern nur der Observer selbst. Ich hätte (zumindest gestern Abend zu später Stunde) wohl angefangen, mit jedem Subscriber solch eine Wrapperkomponente zu erzeugen und dann am Observer anzumelden. :mrgreen:
Wie...
Forum: Object-Pascal / Delphi-Language
Delphi
by berens,
2. Sep 2009
Hallo mal wieder (zu später Stunde).
Delphi treibt mich in den Wahnsinn. Warum kann ein Konzept nicht durchgängig angewendet werden? *seufz*
Also, ich arbeite gerade an der Implementation eines Observer-Patterns: http://www.codeproject.com/KB/architecture/ImplementObserverPattern.aspx
Meine Idee ist es, wenn ein Ereignis eintritt, mehrere andere Komponenten zu benachrichtigen (teilweise...