Verschiedene Klassen in Klasse

[alcaeus]

Hallo Frederic,

auf die Schnelle versucht:

Delphi-Quellcode:

type
   TMensch = class(TObject)
      public
         Foo: String;
   end;

   TMann = class(TMensch)
      public
         Bar: String;
   end;

   TFrau = class(TMensch)
      public
         Bar: Integer;
   end;

Anschliessend wird was damit gemacht:

Delphi-Quellcode:

var
   Mann, Frau: TMensch;
begin
   Mann := TMann.Create;
   Frau := TFrau.Create;
   try
      Mann.Foo := 'Mann';
      Frau.Foo := 'Frau';
      TMann(Mann).Bar := 'Bar';
      TFrau(Frau).Bar := 0;
   finally
      Mann.Free;
      Frau.Free;
   end;
end;

Ich kann dein Problem auch nicht nachvollziehen Laut OOP kannst du einer Objektvariable der Klasse TFoo auch ein Objekt der Klasse TBar zuweisen, solange TBar von TFoo abgeleitet wurde

Greetz
alcaeus