2 Klassen und von jeder Klassen auf die Methoden der anderen

[Christian18]

Hallo,

wenn ich zwei Klassen habe. In beiden Klassen habe ich ein paar Methoden. Wie kann ich es machen, dass ich von jeder Klasse die Methoden der anderen Klasse nutzen kann. Ich habe es mal mit der Vererbung versucht. Das funktioniert auch alles sehr gut, aber ich kann dann nur die Methoden einer Klasse nutzen.

Bsp.: bei der Vererbung

TFahrzeug und TAuto

TAuto erbt die Eigenschaften und Methoden von TFahrzeug. Jetzt kann ich aber von TFahrzeug nicht auf die Eigenschaften und Methoden von TAuto zugreifen.

PS: Hat jemand eine Idee wie ich das Realisieren kann???

Mit freundlichen Grüßen

Christian18

[Waldteufel]

Hi.

Warum musst du denn von TFahrzeug aus auf Methoden von TAuto zugreifen? ZuendkerzeWechseln() wird es ja wohl nur in TAuto geben. Und Losfahren() muss dann eben als virtual deklariert werden.

Zum Beispiel so:

Delphi-Quellcode:

type
  TFahrzeug = class
    procedure Losfahren(); virtual;
  end;

  TAuto = class(TFahrzeug)
    procedure Losfahren(); virtual;
  end;

procedure TFahrzeug.Losfaren();
begin
  // los geht's
end;

procedure TAuto.Losfahren();
begin
  if TankVoll then
    inherited Losfahren
  else MotorStotternLassen;
end;

[tommie-lie]

Wie sieht es denn konkret und vollständig aus? Je nach konkretem Modell kann die Antwort "public", "interfaces" oder "gar nicht" lauten.

[Khabarakh]

Zitat:

Zitat von Christian18

Jetzt kann ich aber von TFahrzeug nicht auf die Eigenschaften und Methoden von TAuto zugreifen.

Das ist ja auch richtig so, sowohl in der Logik der OOP als auch in Hinsicht auf dein Beispiel. TFahrzeug kann ja nichts wissen, dass der Mensch irgend wann einmal ein Auto erfindet.
Du musst dir also ein neues Beispiel ausdenken, zumal ich nicht wirklich verstanden habe, was genau du machen willst :wink: .

[edit]Nix rotes Rechteck da :stupid: . [/edit]