abgeleitete Objekte wie Parent-Objekte verwenden

[messie]

Moin,

war nicht leicht eine sinnvolle Beschreibung des Problem zu finden.

Ich habe eine Objectklasse aus der ich eine weitere abgeleitet und mit zusätzlichen Variablen versehen habe:

Delphi-Quellcode:

  TObj_1 = class(TObject)
  TObj_2 = class(TObj_1)

Jetzt habe ich eine Routine, die ein TObj_1 erwartet, z.B.   procedure MachWasRichtig(input : TObj_1); Dieser Routine möchte ich ein TObj_2 übergeben, weil ich die zusätzlichen Informationen dort nicht benötige.
Ist das korrekt, dann  MachWasRichtiges(TObj_1(Obj_2)); zu verwenden? Es funktioniert zwar, aber ich bin mir nicht ganz sicher ob das auch richtig ist.

Grüße, Messie

[SirThornberry]

der cast ist unnötig. Anstelle von
MachWasRichtiges(TObj_1(Obj_2)); kannst du auch einfach nur
MachWasRichtiges(Obj_2); schreiben. Denn Obj2 ist ja von TObj1 abgeleitet.

[messie]

Ja aber Obj_2 hat ja eine größere Speichermaske. Wird die ohne Cast korrekt zugeschnitten?

Grüße,Messie

[Elvis]

Zitat von messie:

Ja aber Obj_2 hat ja eine größere Speichermaske. Wird die ohne Cast korrekt zugeschnitten?

Delphi hat keine Mehrfachvererbung, und dadurch werden solche Dinge zu einem no-brainer.

TObject1 hat meinetwegen 2 Felder, eins an offset 8 und eins an 12. Insgesamt ist eine Instanz davon vllt 16 bytes groß.
TObject2 erbt von Tobject1 und damit auch genau diese Struktur, alles weitere was hinzugefügt wird, landet hinten dran.

Wenn ich also das erste Feld von TObject1 auslesen will kann ich einfach 4 Bytes von (self^ + 8 ) auslesen.
Dabei ist es also egal ob die Instanz dahinter TObject1 oder TObject2 ist.