Interface und Objektreferenz offenbar noch nicht verstanden

[TiGü]

Zitat von Hepdepaddel:

Delphi-Quellcode:

var
  Summary: TMySummary;
begin
  Summary:=TMySummary.Create;
  Summary.Init;
  ProjectData.CallEnumeratorForAllElements(Summary as IPlanDataEnumerator);
  StatusBar.Panels[1].Text:='Unassigned Order Packages: '+IntToStr(Summary.CountUnassignedOrderPackages);
  StatusBar.Panels[2].Text:='Unassigned Orders: '+IntToStr(Summary.CountUnassignedOrders);
end;

Uff, soviel Text und dein Problem ist dabei ganz einfach:
Verwende NICHT die Objektinstanzen, sondern nur die Interfaceinstanzen.

Vergleiche den von mir zitierten Abschnitt nochmal ganz genau mit meinen Quelltext aus dem Post davor (Tipp: Schaue die Variablen-Deklaration an).

Und ggf. auch nochmal zum nachlesen:
http://www.nickhodges.com/page/Why-Y...eferences.aspx

[Hepdepaddel]

Zitat:

Uff, soviel Text und dein Problem ist dabei ganz einfach:
Verwende NICHT die Objektinstanzen, sondern nur die Interfaceinstanzen.

Vergleiche den von mir zitierten Abschnitt nochmal ganz genau mit meinen Quelltext aus dem Post davor (Tipp: Schaue die Variablen-Deklaration an).

Und ggf. auch nochmal zum nachlesen:
http://www.nickhodges.com/page/Why-Y...eferences.aspx

[/QUOTE]


Sorry für den vielen Text - ich wollte nur den Hintergrund schildern, weswegen mir abgeleitete Interfaces nicht reichen und ich gerne auch auf Objektmethoden zugreifen würde.

Den Text von Nick kannte ich - das Buch liegt hier - aber der beschreibt leider nur die einfachen Fälle. Und dass Du die Variable als Interface deklariert hattest, hatte ich gesehen, das Casting fand ich nur unglücklich. Wenn man ein TForm mit Interfaces ausstatten will, müsste man zudem ein Interface schreiben, das alle von außen genutzten Methoden (z.B. ShowModal) beinhaltet, damit man das Formular anzeigen kann, es weitere Interface-Methoden ansprechen kann und Reference Count dennoch funktioniert. Ergibt sicher Sinn, die Logik "wenn ein Objekt irgendein Interface implementiert, dann sollten auch alle anderen Methoden des Objekts, die man nutzen will, über ein Interface verwendet werden" war mir noch nicht so klar.

Nochmals besten Dank!

[TiGü]

Zitat von Hepdepaddel:

Wenn man ein TForm mit Interfaces ausstatten will, müsste man zudem ein Interface schreiben, das alle von außen genutzten Methoden (z.B. ShowModal) beinhaltet, damit man das Formular anzeigen kann, es weitere Interface-Methoden ansprechen kann und Reference Count dennoch funktioniert.

Nein, muss man für den Fall einer TComponent/TForm eben nicht.
Hier kann auch einfach geprüft (is-Operator) und gecastet werden (as-Operator), ohne das dir irgendetwas kaputt geht, weil der Reference Counting Mechanismus für TComponent anderes implementiert ist, als bspw. für TInterfaceObject.

Wenn es also heißt:

Delphi-Quellcode:

type
  TDeineForm = class(TCustomForm, IEineFunktionalität, IEineAndereFunktionalität)
...

Dann kannst du problemlos folgendes tun:

Delphi-Quellcode:

var
  MeineInstanz : IEineFunktionalität;
  LokalesForm : TForm;
begin
...
if MeineInstanz is TForm then
begin
  LokalesForm := MeineInstanz as TForm; // oder TForm(MeineInstanz), wenn wirklich durch is-Operator oder Supports(...) geprüft wurde
  LokalesForm.ShowModal;
...
end;

Zitat von Hepdepaddel:

Ergibt sicher Sinn, die Logik "wenn ein Objekt irgendein Interface implementiert, dann sollten auch alle anderen Methoden des Objekts, die man nutzen will, über ein Interface verwendet werden" war mir noch nicht so klar.

Nochmal: Du muss nicht alle Methoden, Properties und Anhängsel einer Klasse im Interface abbilden.
Das wäre sonst sehr sehr falsch!

[Sir Rufo]

Das mit dem Casten sollte man sich aber auch genau überlegen und nicht als generellen UseCase abspeichern.

Es gibt Fälle, wo man das gefahrlos machen kann und andere, wo man damit auf die Nase fällt.

Generell sollte ein Interface alles das liefern was benötigt wird um damit zu arbeiten. Ansonsten fragt man einfach per System.SysUtils.Support nach, ob da noch ein weiteres Interface unterstützt wird.

Aber es macht keinen Sinn ein Monster-Interface zu erschaffen. Besser sind dort kleine aber feine, die man dann an unterschiedliche Klassen hängen kann.

Delphi-Quellcode:

IShowView = interface
  function GetVisible;
  property Visible: Boolean read GetVisible;
  procedure Show;
  procedure Hide;
end;

IShowModalView = interface
  function ShowModal: TModalResult;
end;