TStrings[Memo] mit Variable steuern

[danku]

hier kann man den filter hinzufügen:

Delphi-Quellcode:

//Hinzufügen eines Neuen Filters

procedure Tfmformat.baddClick(Sender: TObject);
var counter,i:integer;

begin
if lbfilter.items.indexof (edfilter.text) > -1 then
  begin
    showmessage ('Redundanzproblem!');
    edfilter.SetFocus;
  end
  else begin


  Search_Text := TStringList.Create;
  Search_Text.Add(edfilter.text);

  lbfilter.Items.AddStrings(Search_Text);

  Search_Text.free;
  end;
lbfilter.Sorted:=true;
edfilter.Clear;
counter:= lbfilter.Items.Count;
label2.caption:='(' + inttostr(counter) + ')';
if label2.caption ='(0)'
then label2.caption:='()';

Statusbar1.Panels[0].text:='Geändert';

change:=true;
end;

und das ist der button "anwenden" für die erste checkbox...

Delphi-Quellcode:

...
   //Sonderzeichen entfernen anhand von Search_Text in sgfiles.cells[0,i]
   if checkbox1.checked
      then if not(length(sgfiles.Cells[0,1])>1)
              then
              else begin

              for lk := 0 to Search_text.Count - 1 do begin
              StringGridReplace(sgfiles, Search_text[lk], ' ');
              end;
              
              //StringGridReplace(sgfiles,Search_text,' ');
              //StringGridReplace(sgfiles,Search_Text,'');
              Statusbar1.Panels[1].text:='Geändert';
              change:=true;

...

initialization
  // Erzeugt das Objekt beim Programmstart.
  SonderZeichen := TStringList.Create;
finalization
  // Gitb es kurz vor Programmende wieder frei.
  FreeAndNil(SonderZeichen);
end;

end.

kann man überhaupt mit der variablen Search_Text in einer stringlist (tlistbox mit mehreren items) arbeiten?

hab gerad gemerkt das die fehlermeldung (anhang, runtime fehlermedlung) immer im zusammenhang bei formclose oder eben man den filter andwenden will (also Search_text wird verwendet) kommt,
bloß schlimmes steht da nicht drin. nur ein messagedlg ob speichern ja oder nein.