Hallo,
ich habe mir gerade eine kleine Suche zusammengebaut, funktioniert auch recht gut bis auf 2 "kleinere" Schwierigkeiten.
1. Die Suche ist bei > 1000 ~ Einträgen sehr langsam. Da ich > 10000 Einträge habe, ist mir das Suchen definitiv zu langsam.
2. Wenn ein Eintrag automatisch über meine Suche markiert wird, wird nicht automatisch zum Eintrag hingescrollt.
Hier mein Code:
Delphi-Quellcode:
procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
if pos(ansiuppercase(LabeledEdit1.Text), ansiuppercase(ListView1.Items[i].SubItems.Text)) <> 0 then
begin
ListView1.HideSelection := False;
ListView1.ItemIndex := i;
end;
end;
end;
Das gesucht wird wenn was neues im LabeledEdit eingegeben wird möchte ich schon gerne so behalten, da es so am bequemsten ist.
Gruß
Dash