StringList in eigener Klasse

[DeddyH]

Siehe Edit in #2.

[Klaus01]

..
die Procedure sollte schon zu Klasse gehöhren.
Die StringList würde ich dann im Constructor Create
erstellen.

Grüße
Klaus

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;

[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

[mleyen]

goto: Post#2

[implementation]

Zitat von youuu:

Delphi-Quellcode:

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

Wie wärs denn mal mit:

Delphi-Quellcode:

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

[DeddyH]

Und noch ein Verweis auf #2. Ist der irgendwie weiß auf weiß, oder weshalb wird das ständig überlesen?

[mkinzler]

Wenn schon:
Fsl := THashedStringList.Create; Das steht so aber schon alles in Detlefs Beitrag, auf den schon mehrmals hingewiesen wurde!

[implementation]

Ähm ja, mein Beitrag hatte den Focus auf der lokalen Variablen

[mkinzler]

Zitat von DeddyH:

Und noch ein Verweis auf #2. Ist der irgendwie weiß auf weiß, oder weshalb wird das ständig überlesen?

Mach dir nichts draus. Mir gehts ständig genauso.

Trotzdem würde ich das entweder als interne Eigenschaft ( Liste dann im Konstruktor erzeugen und im Destruktor freigeben) oder als extern zuweisbare Eigenschaft machen. Nicht beides gleichzeitig!

[himitsu]

Zitat:

Delphi-Quellcode:

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

Und intern bitte auch möglichst das interne Feld verwenden und nicht den externen Property.

Delphi-Quellcode:

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