Eine StringList in einer Klasse erstellen

[himitsu]

Erstmal, wenn die Variable zur Klasse gehört, dann gehört sie doch eigentlich auch da mit rein

Und wie oft bzw. wann erstellst du diese StringListe?
Ich würde sie nur beim Programmstart erstellen und am Ende freigeben, da es eh nur EINE geben kann und man so keine Speicherlecks oder Schlimmeres erst entstehen lassen kann

Delphi-Quellcode:

type
  TStringManipulation = Class
    class var FScrollList : TStringList;
    class procedure Initialize;
    class procedure Finalize;
  public
    class procedure SelectLine(Edit: TRichEdit; Line: Integer; BgrColor: TColor);
    class procedure UnselectLine(Edit: TRichEdit; Line: Integer);
    class procedure SyntaxHighlighting(Edit: TRichEdit; Checked: Bool);
    class procedure Suchen(Edit: TRichEdit; SuchText: String);
    class procedure ScrollListLoad(Dateiname: String);
    class procedure ScrollListClear;
    class procedure GetScrollList(Edit: TRichEdit; Datensatz: Integer);
    class procedure SetScrollList(Dateiname: String);
  end;

class procedure TStringManipulation.Initialize;
begin
  FScrollList := TStringList.Create;
end;

class procedure TStringManipulation.Finalize;
begin
  FScrollList.Free;
end;

class procedure TStringManipulation.ScrollListLoad(Dateiname: String);
begin
  FScrollList.LoadFromFile(Dateiname);
end; 

class procedure TStringManipulation.ScrollListClear;
begin
  FScrollList.Clear;
end; 

Initialization
  TStringManipulation.Initialize;

Finalization
  TStringManipulation.Finalize;

End.