Interfaces ohne Referenzzählung?

[idefix2]

Die Objekte, um die es geht, sind Ableitungen verschiedenster Komponenten, die also normalerweise automatisch gelöscht werden, wenn ihr Owner - das Formular - gelöscht wird.

Das Interface, das ihnen allen gemeinsam ist, enthält z.B. eine function IsValid: boolean
Dazu wird ein Nachkomme von TForm implementiert, der zum passenden Zeitpunkt alle Komponenten des Formulars durchgeht, und bei den Komponenten, die dieses Interface implementieren, die Gültigkeit der Eingabe mittels IsValid prüft.

Nachdem Formularkomponenten ohnehin automatisch richtig freigegeben werden, möchte ich nicht durch die Einführung eines Interface eine völlig überflüssige und u.U. schädliche Referenzzählung zusätzlich haben. Mir ist aber eben nicht klar, für welche Objekte Delphi die automatische Referenzzählung aktiviert. Genügt es, dass irgend ein beliebiges Interface angegeben wird, um die Referenzzählung auszulösen, oder kann ich Interfaces definieren, die das nicht machen?

Klarerweise kann ich nicht von TInterfacedPersistent ableiten, weil es sich eben um Nachkommen von Tedit, tmemo etc. handelt, denen ein zusätzliches, gemeinsames Interface umgehängt werden soll.

[himitsu]

Dann könntest du auch bei Objekten bleiben.

Du leitest alle entsprechenden Komponenten von einem gemeinsamen Vorfahren ab, welcher IsValid als virtuelle Methode implementiert.

[Sir Rufo]

Die Referenzzählung erfolgt nicht im Interface, sondern im Objekt das mit dem Interface verbunden deklariert wird. Automatisch implementiert ist das bei TInterfacedObject. Dazu kannst du dir den Quelltext anschauen, wie die Referenzzählung dort umgesetzt ist.

Dann weißt du auch wie man das abstellen kann

(IInterface als Basis-Interface schreibt nur zwingend vor, dass die Methoden für die Referenzzählung implementiert werden müssen)

[idefix2]

@himitsu
Ich kann die Komponenten nicht von einen gemeinsamen Vorfahren ableiten weil es in Delphi ja keine Mehrfachvererbung gibt. Ich brauch Ableitungen von TEdit, TMemo, TCombobox etc. Und ich will in meinem abgeleiteten Formular einfach isvalid für alle Komponenten aufrufen, die das Interface implementieren (und true für alle anderen annehmen).

@ Sir Rufo
Danke, ich werde mir den Quellcode anschauen. Muss eigentlich ein Interface zwingend von IInterface abgeleitet werden?

[Sir Rufo]

IInterface ist wie das TObject bei Klassen, davon wird immer abgeleitet

[himitsu]

In Delphi ja ... wenn man kein Vorfahreninterface angibt, dann wird automatisch IInterface genommen.

[Blup]

Zitat von idefix2:

@himitsu
Ich kann die Komponenten nicht von einen gemeinsamen Vorfahren ableiten weil es in Delphi ja keine Mehrfachvererbung gibt. Ich brauch Ableitungen von TEdit, TMemo, TCombobox etc.

Da es sich bei diesen Klassen um Ableitungen von TComponent handelt, ist die Referenzzählung sowieso schon ausgeschalten. Das hat Panthrax bereits geschrieben.

[himitsu]

Zitat von Blup:

Da es sich bei diesen Klassen um Ableitungen von TComponent handelt, ist die Referenzzählung sowieso schon ausgeschalten. Das hat Panthrax bereits geschrieben.

Nee, ich hatte gemeint dieses ganz normal als virtuelle Methode zu implementieren und nicht über Interfaces, aber dieser Weg ist ja nun eh nicht gewollt.

[idefix2]

Das hat nichts mit "nicht gewollt" zu tun.

Ich habe einige verschiedene Komponenten, die zusätzliche Methoden implementieren. Wenn das Formular alle Komponenten durchgeht, soll es auf einfache Weise feststellen können, welche Komponenten diese Methoden implementieren und welche nicht, und die gleichen Methoden in den völlig verschiedenen Klassen auf einfache Art aufrufen können. Dafür eignet sich meines Wissens eigentlich nur die "supports" Funktion und das Interface-Konzept, alles andere wäre doch wesentlich komplizierter, oder?