Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Nov 2010
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Nov 2010
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