probleme mit Listbox, TList und Objekten

[chrisw]

OK, dann mach doch die privaten Variablen (die mit F beginnen) public und lösche die properties,
dann hast Du doch genau das was Du willst !

Delphi-Quellcode:

type TRoehre = class(TObject)
      public
        Watt : Integer;
        IsOn: Boolean;
        constructor create (Watt: Integer; IsOn : Boolean) ;
        destructor destroy; override;

end;

type TLampe = class(TObject)
    public
      Nr     : integer;
      Bezeichnung : string;
      Roehre1 : TRoehre;
      Roehre2 : TRoehre;
    constructor create (Nr : Integer; Bezeichnung : String);
    destructor destroy; override;
end;
.............

constructor TLampe.create (Nr : Integer; Bezeichnung : String);
begin
  self.Nr := Nr;
  self.Bezeichnung := Bezeichnung;
  self.Roehre1 := TRoehre.create(30,False);
  self.Roehre2 := TRoehre.create(40,False);
  inherited create;
end;


constructor TRoehre.create(Watt : Integer; IsOn : Boolean);
begin
  inherited create;
  self.Watt := Watt;
  self.IsOn := IsOn;
end;