StringList in eigener Klasse

[mkinzler]

Delphi-Quellcode:

type
  TMyClass = class
    private
      Fsl: THashedStringList; // Links
    public
      property sl: THashedStringList read Fsl write Fsl;
      procedure addSl(content: string);
    end;

procedure addSl(content: string);
Begin
  if Assigned( Fsl) then Fsl.add(content);
end;

-In den Methoden auf die realen Felder zugreifen
-Vorher überprüfen, ob die Eigenschaft zugewiesen ist