wie Reference to Procedure in generischer TList verwalten

[himitsu]

Delphi-Quellcode:

Type 
  THIDDeviceChangeProc = Reference to Procedure(Controler: THIDControler);
  THIDControler = Class(TObject)
    FOnDeviceChange: TList<THIDDeviceChangeProc>;
  End;

Procedure THIDControler.RegisterDeviceChangeProc(Const Proc: THIDDeviceChangeProc);
  Begin
    If not Assigned(Proc) Then Exit;
    If FOnDeviceChange.IndexOf(Proc) < 0 Then
      FOnDeviceChange.Add(Proc);
  End;

Procedure THIDControler.UnregisterDeviceChangeProc(Const Proc: THIDDeviceChangeProc);
  Begin
    If not Assigned(Proc) Then Exit;
    FOnDeviceChange.Remove(Proc);
  End;

Hab grade das Problem, daß .Remove den Eintrag nicht aus der Liste löscht.
Ist echt blöd, wenn "entfernte" Einträge dennoch vorhanden sind, vorallem wenn man dann diese Callbacks auch noch aufruft.

Beim weiteren Forschen ist dann aufgefallen, daß auch .Extract und vorallem .IndexOf die Einträge nicht findet.

Wie kann ich nun bei diesen Referenzen einen korrekten Vergleich implementieren?

[himitsu]

Ich bin inzwischen soweit, daß ich rausgefunden, daß "Reference to" ein Interface darstellt.
Und wie ich vorhin in einem DP-Thread gelesen hab, kann man Interfaces nicht vergleichen.
Außerdem fand ich keine Information zu diesem "geheimen" Interface, so daß ich auch nicht weiß, ob dieses Interface eine Vergleichsmethode anbietet.

Also eigentlich fand ich dieses "Reference to" ganz toll, da man so eine recht offene Schnittstelle für Callbacks anbieten kann.

Aber wenn man davon eine Liste verwalten will, dann gibt es dafür wohl keine Lösung.
Heißt also, daß ich entweder keine Liste anbieten kann (was blöde wäre, da es nur ein globales Objekt gibt und man so nicht mehrere Callbacks registrieren könnte) oder das Ganze z.B. auf Objektmethoden beschränken muß (Prozeduren würde ich wegen des OOP eher vernachässigen).

[Win32.API]

Nagel mich nicht drauf fest, aber ich meine mich zu erinnern, dass Du das Ganze mithilfe eines TComparison<THIDDeviceChangeProc> vergleich musst.

PS: Dies muss man machen, wenn man Funktionen wie .IndexOf oder .Remove benutzen möchte. Es bleibt allerdings das Problem des Vergleiches.

[himitsu]

Es wird doch ein Standard-Comparer verwendet, wenn man keinen angibt?
Und selber einen Comparer erstellen bringt nicht viel, da man diese Interfaces nicht kopieren kann.

Und wenn keiner einen Weg findet, wie man die Daten innerhalb des Interfaces verleichen kann, bzw. eine Methode dieses Interfaces kennt, über welche man vergleichen kann, solange bringt es auch nichts, einen eigenen Comparer erstellen.

Hatte ja gedacht das wäre auch ein Record, so wie bei den Methoden-Zeigern für die Objekte und Klassen ... dort hätte man binär vergleichen können.

[himitsu]

Es wird vermutlich nix bringen, aber ich hab mal mein Glück versucht:
http://qc.embarcadero.com/wc/qcmain.aspx?d=89556