Problem mit Uses-Klausel

[Sir Rufo]

Also so ganz ist das ja nicht

Delphi-Quellcode:

unit AutoTeile;

interface

type
  TLenkrad = class
    property Durchmesser : integer;
  end;

Delphi-Quellcode:

unit Auto;

interface

uses
  AutoTeile;

type
  TAuto = class
    property Lenkrad : TLenkrad;
  end;

Delphi-Quellcode:

unit MyMainUnit;

interface

uses
  Auto; // kennt nur Auto

var
  MeinAuto : TAuto;

// und doch geht der Zugriff auf

MeinAuto.Lenkrad.Durchmesser

[Medium]

Das ja, was aber nicht ginge ist:

Delphi-Quellcode:

unit MyMainUnit;

interface

uses
   Auto; // kennt nur Auto

var
   MeinAuto : TAuto;

MeinAuto.Lenkrad := TLenkrad.Create;

Da die Deklaration von TLenkrad fehlt. Memberzugriff geht immer, auch ohne das der Typ des Objekt-Feldes im Scope liegt. Nur die unmittelbare Verwendung dessen geht nicht. Ebenso geht auch z.B. das nicht:

Delphi-Quellcode:

uses
   Auto; // kennt nur Auto

var
   MeinAuto : TAuto;

MeinAuto := TMercedes.Create;

Um das zu realisieren gibt es mehrere Wege: Eine Factory, die eine Enummeration als Parameter erhält und anhand dessen ein Objekt des richtigen Typs liefert; das gleiche nur anders: In der Unit Auto müssten dann noch Dinge wie "TMercedesClass = class of TMercedes;" usw. deklariert werden, welche statt der Enummeration übergeben würden; eine String-Basierte Factory die einen Text-Parameter nimmt und anhand diesem unterscheidet, ... letztlich würde hier, wenn es um das Erzeugen eines spezifischen Autos geht, am ehesten aufs Factory-Pattern hinauslaufen. Fühlt sich für mich zumindest am "natürlichsten" an. Wie man dieser nun konkret sagt, was sie erzeugen soll, wäre dann wie o.g. sehr variabel. Da käme es dann auf den genauen Einsatz an, und wohl auch persönlichen Geschmack.


@Roter-Kasten-Rufo: Dass die VCL nicht der Gold-Standard der Best-Practices ist, weiss ich auch ;P

[Sir Rufo]

@Medium

[stahli]

Irgendwas kam mir doch schon beim Abschicken merkwürdig vor.
Hätte auf meine Signatur hören sollen.

[philharmony]

Hmm nächstes Problem: meine 'TParkhaus' enthält eine 'Autos : TList', die nur die Pointer auf die verwendeten 'TAuto' enthält. Ich habe zwar eine procedure Parthaus.AddAuto(Name : String), und eine function Parkhaus.GetAuto : TAuto, allerdings kennt UnitMain ja nur 'Parkhaus' und kann dann zwar ein Auto hinzufügen, aber nichts mit dem ReturnValue von GetAuto vom Typ TAuto anfangen, richtig?

[DeddyH]

Richtig.

[philharmony]

Ich glaube, die Rupie hängt noch knapp über dem Boden fest:

Wenn 'TParkhaus' eine Property vom Typ 'TAuto' hat, dann kennt die MainUnit, die TParkhaus verwendet auch TAuto. Ist das richtig?
Dann könnte ich anstatt der GetAuto ja auch eine ArrayProperty mit Typ TAuto benutzen, die den entsprechenden Zeiger aus der TList zurückgibt. Kennt die MainUnit dann TAuto?