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