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.