StringList weiter reichen zur Eigentliche Klasse

[Muetze1]

Delphi-Quellcode:

type
  TPlaylistenManager = class
  private
    fPlayListItems: TStrings;

    procedure SetPlaylistItems(const AValue: TStrings);

  public
    constructor Create;
    destructor Destroy; override;   // <--- override vergessen!!!

    property PlaylistItems: TStrings read fPlaylistItems write SetPlaylistItems;
  end;

...

constructor TPlaylistenManager.Create;
begin
  inherited;

  fPlaylistItems := TStringList.Create;
end;

destructor TPlaylistenManager.Destroy;
begin
  fPlaylistItems.Free;
  
  inherited;
end;

procedure TPlaylistenManager.SetPlaylistItems(const AValue: TStrings);
begin
  fPlaylistItems.Assign(AValue);   // <<-- damit du dir nicht deine eigene Instanz von aussen überschreiben lässt!!
end;