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:

Delphi-Quellcode:

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:

Zitat von youuu (Beitrag 1045252)

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:

Delphi-Quellcode:

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:wink:

[mkinzler]

Zitat:

Zitat von DeddyH (Beitrag 1045258)

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;