StringList in eigener Klasse

[youuu]

Hi,

ich habe eine Klasse.

z.B.

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
  sl.add(content);
end;

Wieso knallt mir da immer die exception rein, lesen von Adresse 000000, als wenn de Stringlist nicht createt ist?
Nur wenn ich ein Create davor pack, knallt es ebenfalls, das von Adresse xxxxxxx.

Delphi-Quellcode:

procedure addSl(content: string);
Begin
  sl.create;
  sl.add(content);
end;

[DeddyH]

sl := THashedStringList.Create; Dieser Fehler kommt hier bestimmt einmal die Woche

[edit] P.S.: Wenn Du die Liste schon selbst erzeugst, kannst Du sie auch ReadOnly definieren. Falls Du das nicht willst, solltest Du zumindest einen Setter schreiben, der die übergebene Liste dann mit Assign in Deine eigene kopiert. [/edit]

[youuu]

Zitat von DeddyH:

sl := THashedStringList.Create;

Meinte ich natürlich, nur vergessen beim abtippen hinzu zu schreiben

[DeddyH]

Wird die Liste wirklich jedesmal neu erzeugt, wenn ein Eintrag hinzukommen soll?

[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

[youuu]

if Assigned(FslLink_id) then FslLink_id.add('sss'); Wird aber nie durch laufen, da anscheinend ja die StringList nicht existiert für die Klasse.
Wo muss ich die Stringlist erstellen, damit Sie für die ganze Klasse zur Verfügung steht?

Im Constructor bringt es nichts

[mleyen]

Delphi-Quellcode:

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

[DeddyH]

Oder wenn sie in jedem Fall gebraucht wird, im Konstruktor anlegen und im Destruktor wieder freigeben.

[youuu]

Delphi-Quellcode:

constructor TMyClass.Create;
Var
  Fsl: THashedStringList;
Begin
  Fsl.Create;
End;

Brachte leider auch nicth den Erfolg, denn das habe ich schon versucht.
Denn:
if Assigned(Fsl) then läuft nicht durch.




Edit:

Zitat:

Delphi-Quellcode:

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

procedure TmyClass.addSl(content: string);
Begin
  sl.add(content);
end;

Hatte ich doch schon

[mkinzler]

Da das ja keine interne Liste ist, sondern extern zugewisen werden kann, kann man sich so einen schönen Leak basteln