Klassenbeziehung herstellen?

[0xDEAD]

Hi,

ich steh grad auf dem Schlauch und weiß nicht wieso?

Wenn ich eine Beziehung zw. zwei Klassen brauche. Kann ich das dann wie folgt machen?

Delphi-Quellcode:

  TKlasseA = class(TObject)

  TKlasseB = class(TObject)


procedure Test;
begin
  InstanzA := TKlasseA.Create;
  InstanzB := TKlasseB.Create;
  InstanzA.EineBeziehung := InstanzB;
end;

Ist das jetzt Blödsinn oder steh ich nur auf dem Schlauch?
Oder gibt es was besseres?

:wiejetzt:

[lowF]

Was du da jetzt gemacht hast, ist afaik eine Objektbeziehung, also eine Beziehung zwischen eines Objektes der Klasse A und eines der Klasse B.

Eine Klassenbeziehung sollte zwischen Klassen herrschen, z.B. so:

Delphi-Quellcode:

 KlasseA = class(TObject);
 KlasseB = class(KlasseA);

mfg
lowF

[0xDEAD]

Zitat:

Zitat von lowF

Eine Klassenbeziehung sollte zwischen Klassen herrschen, z.B. so:

Delphi-Quellcode:

 KlasseA = class(TObject);
 KlasseB = class(KlasseA);

Das würde ich jetzt eine Ableitung nennen.

In meinem Beispiel fehlt grad noch was:

Delphi-Quellcode:

TKlasseA = class(TObject)
  EineBeziehung: TKlasseB;

TKlasseB = class(TObject)


procedure Test;
begin
  InstanzA := TKlasseA.Create;
  InstanzB := TKlasseB.Create;
  InstanzA.EineBeziehung := InstanzB;
end;

Sinn und Zweck soll sein,
dass aus InstanzA eine Methode der KlasseB aufgerufen werden kann.

[MacGuyver]

Moin oxDEAD,

das siehst du so richtig. Jupp, das wollte ich auch gerade so schreiben.
Dann sieht das so aus:

Delphi-Quellcode:

TKlasseA = class(TObject) 
  EineBeziehung : TKlasseB;

TKlasseB = class(TObject) 
  EineBeziehung : TKlasseA;

Und was sieht daran blöd aus?

Stefan

[Klaus01]

So sollte es auch funktionieren.

Die Klasse A ist dann der Aggregator(Seite 4) der Klasse B.

Delphi-Quellcode:

TKlasseA = class(TObject)
  EineBeziehung: TKlasseB;

TKlasseB = class(TObject)

...
constructor TKlasseA.create;
begin
  ...
  eineBeziehung := TKlasseB.create;
end;

procedure Test;
begin
  InstanzA := TKlasseA.Create;
end;

Grüße
Klaus

[0xDEAD]

Mir fällt es immer noch schwer das UML-Modell in richtigen Quellcode umzusetzen, ist wohl Übungssache.

Ich überlege, ob ich mal sowas wie ModelMaker einsetzen soll. Das will ich aber erst, wenn ich diese Thema wirklich richtig verstanden habe. Von daher erstmal alles selber coden.



Nochwas:

Jetzt habe ich InstanzA und InstanzB erstellt.
Muss ich beim Destruktor von InstanzA die Variable befreien?

Delphi-Quellcode:

EineBeziehung.Free;

Oder reicht das:

Delphi-Quellcode:

InstanzB.Free;

[guidok]

InstanzB.Free ist besser.

Da EineBeziehung auf InstanzB verweist würde bei beiden Varianten die gleiche Wirkung erzielen und die InstanzB entfernen, aber idealerweise wird eine Instanz dort entfernt, wo sie erzeugt wird.

[lowF]

Also ich muss widersprechen ;)

Bin gerade frisch aus der Schule mit Abi und wir haben gelernt, dass das, was du jetzt machst, eine Objektbeziehung ist, also eine Beziehung zwischen Objekten.
Hättest du geschrieben, dass du willst, dass ein Objekt die Methode eines Objektes einer anderen Klasse aufrufen soll, dann wär es mir klar gewesen, dass du Objektbeziehung meinst ;)

Oder widerspricht mir da jemand? (Geht mir gerade nur um den Unterschied zwischen Objekt- und Klassenbeziehung.