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:

zusammenfalten · markieren

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

Jeder Vergleich erfordert 2 mal ein ansiuppercase.
Einen Vergleich kannst Du dir ersparen indem du das Ergebnis von
ansiuppercase(LabeledEdit1.Text) in einer Hilfsvariable speicherst

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  i: Integer;
  lTemp: String;
  lItem: TListItem;
begin
  lTemp := AnsiUpperCase(LabeledEdit1.Text);

  for i := 0 to Pred(ListView1.Items.Count) do
  begin
    lItem := ListView1.Items[i];

    if Pos(lTemp, AnsiUpperCase(lItem.SubItems.Text)) <> 0 then
    begin
      ListView1.HideSelection := False;
      ListView1.Selected := lItem;
      lItem.MakeVisible(False);
      Break;
    end;
  end;
end;

1. MakeVisible()
2. Schleife abbrechen, wenn Eintrag gefunden
3. Selected sollte schneller als ItemIndex sein.
4. AnsiUpperCase() nach Bernhard Geyer rausgezogen
5. nur einmaliger Zugriff auf Items[] Array Property

Danke, aber an der Geschwindigkeit hat sich leider nicht viel geändert

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := ansiuppercase(LabeledEdit1.Text);
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    if pos(s, ansiuppercase(ListView1.Items[i].SubItems.Text)) <> 0 then
    begin
      ListView1.HideSelection := False;
      ListView1.ItemIndex := i;
    end;
  end;
end;

Zitat von Muetze1:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  i: Integer;
  lTemp: String;
  lItem: TListItem;
begin
  lTemp := AnsiUpperCase(LabeledEdit1.Text);

  for i := 0 to Pred(ListView1.Items.Count) do
  begin
    lItem := ListView1.Items[i];

    if Pos(lTemp, AnsiUpperCase(lItem.SubItems.Text)) <> 0 then
    begin
      ListView1.HideSelection := False;
      ListView1.Selected := lItem;
      lItem.MakeVisible(False);
      Break;
    end;
  end;
end;

1. MakeVisible()
2. Schleife abbrechen, wenn Eintrag gefunden
3. Selected sollte schneller als ItemIndex sein.
4. AnsiUpperCase() nach Bernhard Geyer rausgezogen
5. nur einmaliger Zugriff auf Items[] Array Property

Danke, ändert zwar nichts an der Geschwindigkeit aber jetzt wird wenigstens zum Eintrag hingescrollt
Edit: Oh, hatte vergessen was vom Code zu übernehmen
Die Suche ist jetzt spürbar schneller!

Danke!!

Gruß
Dash

Du hast einen Designfehler in deinem Programm. Trenne die Daten von der Oberfläche. Das heißt halte die Daten in einer entsprechenden Datenstruktur und benutze den Listview nur, um die Daten zu visualisieren. Alle Operationen auf den Daten werden auf der Datenstruktur durchgeführt. Willst du einen Eintrag im Listview markieren nach einer Suche, suchst in der Datenstruktur nach den Daten und wenn du sie dort gefunden hast, markierst du nur noch den korrspondierenden Eintrag im Listview.

Ich habe auch eine ListView in meinem Programm und halte aber die Daten in eigenen Strukturen. Dort kann ich aber nicht suchen, da die Ausgabe nunmal anders formatiert wird. Daher ist es einfach nur mit höherem Aufwand möglich, in den internen Listen zu suchen, da man immer aus den Daten erstmal die Strings generieren muss für die Ausgabe.

Gerade dass ist doch mit einer der Vorteile der Trennung GUI und Daten: Man hat die Daten und kann die Ausgabe sonstwie formatieren und ausgeben - oder willst du mir sagen, dass du die Daten auch entsprechend formatiert in deinen internen Listen bereithälst?

Es ist einfach nicht immer alles mit dieser Faustformel lösbar. Ich programmiere grundsätzlich so, könnte mit deinem Vorwurf des Designfehlers hier nichts anfangen ausser beleidigt zu sein. Schließlich hast du keine Ahnung wie das restliche Konzept aussieht von mir/ihm und ob es überhaupt mit dieser strikten Trennung in diesem Falle der Suche überhaupt lösbar wäre.

Ohne die näheren Umstände zu kennen ist der Vorwurf einfach nur aus der Luft gegriffen und frech.

Also Muetze seine Lösung war jetzt eigentlich perfekt.
Nur habe ich wieder ein neues Problem:

Bei über 10000 Einträgen gibt es natürlich mehrere Treffer bei der Suche. Wie blende ich jetzt am besten alle Einträge aus bis auf die, die mit der Suche übereinstimmen? Wenn das Suchfeld leer ist müssen natürlich sofort wieder alle Einträge da sein. Ich könnte mir vorstellen das es hier wieder Geschwindigkeitsprobleme geben könnte...

Gtuß
Dash

Dazu mußt du entweder den Ansatz von Luckie machen (GUI und Datenhaltung trennen sowie z.B. den Listview im Virtualmodus betreiben oder einen ListView-Control nehmen das einzelne Items ausblenden kann.

Also ich habe jetzt mal ein wenig rumprobiert, allerdings ist dabei nichts gescheites rausgekommen. Ich werde mal Ausschau nach einer neuen ListView halten. Mal sehen was die VirtualListView so kann.

Gruß
Dash