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.