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]

Delphi-Quellcode:

sl := THashedStringList.Create;

Dieser Fehler kommt hier bestimmt einmal die Woche :zwinker:

[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]

[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

[himitsu]

Zitat:

Zugriffsverletzung bei Adresse $000000xx

Spricht fast immer für einen NIL-Pointer.

Also wann hast du die Stringliste erstellt, welche du dort nutzen willst?


PS:

Delphi-Quellcode:

write Fsl;

wird sehr schnell zu einem Speicherleck fürhen, wenn du nicht auspaßt.

[edit] wo kommen denn plötzlich die Beiträge her ... huhu? ... blöde RedBox

[youuu]

Zitat:

Zitat von DeddyH (Beitrag 1045235)

Delphi-Quellcode:

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?

[youuu]

Delphi-Quellcode:

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.

[mkinzler]

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