"Unterklassen"?

[XnikoX]

Hallo,

Also ich komm mal gleich auf den Punkt.
Schreibe gerade eine kleine Komponente und wollte das alles recht übersichtlich gestalten.
Also dachte ich mir, die Prozeduren nicht nur Beispielsweise mit WAC.Play sondern mit WAC.Song.Play etc. aufzurufen.
Tjo, soweit so gut.
Nur wie geht's?
Eine Klasse zu definieren ist ja überhaupt gar kein Problem, doch ein "Unterklasse"?
Ich hoffe ihr versteht was ich jetzt meine.
Um es anders auszudrücken:

WAC.Song.Play;
anstatt
WAC.Play;

Naja. Anfängerfrage, aber wofür ist das Forum da? Danke schonmal

Grüße,
Niko

[Chewie]

Ganz einfach: Du brauchst eine Instanz einer Klasse, die eine Methode Play hat, mit dem Namen Song.

Also etwa so:

Delphi-Quellcode:

type
  TSomeClassWithPlayMethod = class
  public
    procedure Play;
  end;

  TTheOtherClass = class
  private
    FSong: TSomeClassWithPlaymethod;
  public
    property Song: TSomeClassWithPlayMethod read FSong;
  end;

Aufruf nun mit TheOtherClass.Song.Play.

[XnikoX]

Spitze!
Danke!

Grüße,
Niko

[Dagon]

Hier ein Beispiel anhand deines Probelms:

Du hast also eine Klasse z. B. TWAC.
Diese hat eine Eigenschaft Song vom Typ TSong.
Play widerum ist eine Eigenschaft von der Klasse TSong vom Typ TPlay.

Dann ist der Aufruf von Play:

WAC.Song.Play

Das ist jetzt aber nur grob erklär.