assoziationen zwischen objekten

[volf]

hey,


also es gibt bidirektionale und unidirektionale assoziation(sowie kompostion und aggregation).

Aggregation

Delphi-Quellcode:

TPerson = class (TObject)
            Adresse : TAdresse;
            Name    : string[15];
            ...
           public
            constructor Create; virtual;
            procedure Init; virtual;
            procedure SetName (n: string); virtual;
           ...
          end;

Zitat:

Komponenten sind vom Aggregat existenzabhängig
– Erzeugung des Aggregats erzeugt auch die Komponenten
– Löschung des Aggregats löscht auch die Komponenten

richtig verstanden habe ich das nicht. Muss bei einer Aggregation die Komponente in der Klasse als Feld hinzugefügt werden? Man könnte doch die Komponente außerhalb der Klasse irgendwo deklarieren und im z.B. im FormCreate() createn?

Bei einer unidirektional Assoziation müssen dan gegenseitig die Komponenten als Feld hinzugefügt werden oder? wie werden sie dan createt? oder ist das nur bei einer Aggregation so?

[mkinzler]

Zitat:

Muss bei einer Aggregation die Komponente in der Klasse als Feld hinzugefügt werden? Man könnte doch die Komponente außerhalb der Klasse irgendwo deklarieren und im z.B. im FormCreate() createn?

Aggegation heisst ja Teil eines Ganzen und vom Ganzen abhängig.

Zitat:

Bei einer unidirektional Assoziation müssen dan gegenseitig die Komponenten als Feld hinzugefügt werden oder?

Nein, unidirektional heisst der eine kennt den anderen, der andere den einen aber nicht.
Z.B. der Normalfall beim Owner. Der Owner kennt sein Eigentum und gibt dieses bei seiner Freigabe mit frei. eine Komponente kennt im Normalfall seinen Owner ab nicht.
Bidirektional heisst, das ein Objekt weiss, wer sein Owner ist.

[volf]

Zitat von mkinzler:

Zitat:

Muss bei einer Aggregation die Komponente in der Klasse als Feld hinzugefügt werden? Man könnte doch die Komponente außerhalb der Klasse irgendwo deklarieren und im z.B. im FormCreate() createn?

Aggegation heisst ja Teil eines Ganzen und vom Ganzen abhängig.

Zitat:

Bei einer unidirektional Assoziation müssen dan gegenseitig die Komponenten als Feld hinzugefügt werden oder?

Nein, unidirektional heisst der eine kennt den anderen, der andere den einen aber nicht.
Z.B. der Normalfall beim Owner. Der Owner kennt sein Eigentum und gibt dieses bei seiner Freigabe mit frei. eine Komponente kennt im Normalfall seinen Owner ab nicht.
Bidirektional heisst, das ein Objekt weiss, wer sein Owner ist.

ja sollte bidirektional heißen.

Klasse 1:

Delphi-Quellcode:

 TDaten= class
 private
     spielFeld: array [0..3,0..3] of string;
//   function pruefeZeile(pZ:string,pZeile:integer):integer;
 //  function pruefeZeile(pZ:string,pZeile:integer):integer;
 public
 //  procedure setzeFeld(pNr:integer,pAktSpieler:string):boolean;
  // procedure pruefeGewonnen(pAktSpieler:string):boolean;
 end;

Klasse 2:

Delphi-Quellcode:

type
  TSteuerung= class
 private
   dieSpielNr:integer;
   anzahlZuege:integer;
 //  procedure setzeAktSpieler(pAktSpieler:string);
  // procedure erhoeheAnzZuege;
 //  procedure erstelleStatistik(pAktSpieler:string);
     function ermittleSpieler(): string;
 public
        aktSpieler:string;
  // procedure bearbeiteClick(pNr:integer);
  // procedure bearbeiteTaste(pNr:integer);
     procedure NeuesSpiel;
 end;

sagen wir mal zwischen diesen Klassen soll eine bidirektionale assoziation bestehen. könnte jemand die felder ergänzen, die jetzt hinzukommen würden?

[mkinzler]

Ein einfaches Beispiel:

Delphi-Quellcode:

TReifen = class;

TAuto = class ( Fahrzeug)
    ReifenLinksVorne, ReifenRechtsVorne, 
    ReifenLinksHinten, ReifenRechtsHinten: TReifen;
   ...
end;

TReifen = class
    Auto: TAuto;
    ...
end;

Das Auto kennt seine Reifen und der Reifen weis, zu welchem Auto er gehört

[BUG]

Also ich habe es so gelernt:
Aggregation <> Komposition

Aggregation:

Ein Objekt/Entität ist ein Behälter für ein anderes.

Beispiel:
Eine Kaffeetasse aggregiert den Kaffee, dh. man kann Kaffee hineinfüllen oder herausnehmen.
Egal ob / wiviel Kaffee darin ist, es ist immer eine Kaffeetasse.
Der Kaffee wird unabhängig von der Tasse erzeugt und vernichtet.

Komposition:

Ein Objekt/Entität besteht aus einem anderem.

Beispiel:
Eine Kaffeetasse besteht unter anderem aus einem Henkel.
Besitzt sie keinen, ist sie keine Tasse.
Der Henkel wird bei der Erstellung der Tasse erstellt und bei ihrer Erstellung vernichtet.


Die Unterscheidung in uni- bzw. bidirektional ist aber afaik nicht davon abhängig.

So, hoffe, das ist richtig, sonst falle ich bei der Prüfung auf die Nase

[volf]

Zitat von mkinzler:

Ein einfaches Beispiel:

Delphi-Quellcode:

TReifen = class;

TAuto = class ( Fahrzeug)
    ReifenLinksVorne, ReifenRechtsVorne, 
    ReifenLinksHinten, ReifenRechtsHinten: TReifen;
   ...
end;

TReifen = class
    Auto: TAuto;
    ...
end;

Das Auto kennt seine Reifen und der Reifen weis, zu welchem Auto er gehört

hat es einen bestimmten Grund warum du zweimal TReifen = class; geschrieben hast?

wie createt man jetzt ReifenLinksHinten, ReifenRechtsHinten und Auto?

[mkinzler]

Zitat:

hat es einen bestimmten Grund warum du zweimal TReifen = class; geschrieben hast?

Ja, das erste ist die Forward-Deklaration.

Zitat:

wie werden jetzt die klassen createt?

Die Reifen im Konstruktor von TAuto.

[volf]

@BUG & mkinzler danke für die antoworten.

Delphi-Quellcode:

Auto.Create;
Auto.ReifenLinksVorne.Create;
Auto.ReifenRechtsVorne.Create;
Auto.ReifenLinksHinten.Create;
Auto.ReifenRechtsHinten.Create;

ist es richtig so?

[mjustin]

Zitat von volf:

Delphi-Quellcode:

Auto.Create;
Auto.ReifenLinksVorne.Create;
Auto.ReifenRechtsVorne.Create;
Auto.ReifenLinksHinten.Create;
Auto.ReifenRechtsHinten.Create;

ist es richtig so?

Eher würde ich an so etwas denken:

Delphi-Quellcode:

Auto.Create;
Auto.ReifenLinksVorne := TReifen.Create;
...
Auto.ReserveRad := TReifen.Create;

Cheers,

[mkinzler]

Nein.

Delphi-Quellcode:

type
  TAuto = class (Fahrzeug)
    ...
    constructor Create; 
    destructor Destroy;
    ...
  end;

  constructor TAuto.Create;
  begin
      inherited;
      ReifenLinksVorne := TReifen.Create;
      ReifenRechtsVorne := TReifen.Create;
      ...
  end;

  destructor TAuto.Destroy;
  begin
     ReifenLinksVorne.Free;
     ...
     inherited; 
  end:
...

var Auto: TAuto;
   ...

  Auto := TAuto.Create;