ListBoxeinträge nach einem bestimmten Wort durchsuchen

[St.Pauli]

Hi, wie kann man eine ListBox nach einem bestimten Wort durchsuchen?

Hier ein kleines Beispiel

Wort das gesucht werden soll: Hallo
ListBoxeinträge:

usdshdhsduudhs
dsdiiHallosmdsdk <- soll gefunden werden
Hallo <- soll gefunden werden
oskodosodkak

Am besten wäre, wenn man alle ListBox-Einträge mit for runtergeht, da ich die alle Ergebnisse eh aus der ListBox löschen will.
Jetzt schon mal danke für jede Antwort!!

[Sharky]

Hai St.Pauli,

Du hast dir ja die Antwort schon gegeben. Mit For Listbox.Count -1 downto 0 durch die Listbox laufen.
Dann mit Pos prüfen ob das Wort in dem Eintrag vorhanden ist.

[alcaeus]

Hallo St.Pauli,

Delphi-Quellcode:

function DeleteStrings(ListBox: TListBox; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
  DeleteEntry: Boolean;
begin
  Result := 0;
  for i := ListBox.Count-1 downto 0 do
  begin
    if CaseSensitive then
      DeleteEntry := Pos(Pattern, ListBox.Items[i])
    else
      DeleteEntry := Pos(LowerCase(Pattern), LowerCase(ListBox.Items[i]))
    if DeleteEntry then
    begin
      ListBox.Items.Delete(i);
      Result := Result+1;
  end;
end;

Sollte selbsterklaerend sein. Als Rueckgabewert gibts die Anzahl der geloeschten Eintraege.

Greetz
alcaeus

[Muetze1]

Moin!

Alcaeus Code mit Fehlerbehebung:

Delphi-Quellcode:

function DeleteStrings(Items: TStrings; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
  DeleteEntry: Boolean;
begin
  Result := 0;
  for i := Items.Count-1 downto 0 do
  begin
    if CaseSensitive then
      DeleteEntry := (Pos(Pattern, Items[i]) > 0)
    else
      DeleteEntry := (Pos(LowerCase(Pattern), LowerCase(Items[i])) > 0 );
    if DeleteEntry then
    begin
      Items.Delete(i);
      Inc(Result);
  end;
end;

- bei Pos die Ergebnisabfrage vergessen
- ListBox.Items.Count anstatt ListBox.Count
- Inc() beim Result inkrement
- ListBox Abhängigkeit entfernt und auf TStrings umgestellt, somit auch für ComboBoxen, etc

MfG
Muetze1

[alcaeus]

Moin Muetze,

danke fuer die Korrekturen, das kommt davon wenn man IE-Programmierer ist ;)

Diesen hier:

Zitat:

Inc() beim Result inkrement

Haettest du dir sparen koennen, nachdem der finale Code sowieso gleich aussieht ;) Ich habe mir einfach angewoehnt, var := var+1 zu verwenden, da ich oft programmiersprachen wechsle, und so gewisse Patterns (in meinem Kopf) immer gleich sind ;)

Greetz
alcaeus

[quakergod]

hi, ich hab den code getestet jedoch werden die einträge die das wort enthalten gelöscht, und nicht die die es nicht enthalten..?

[alcaeus]

Zitat:

Zitat von St.Pauli

Am besten wäre, wenn man alle ListBox-Einträge mit for runtergeht, da ich die alle Ergebnisse eh aus der ListBox löschen will.
Jetzt schon mal danke für jede Antwort!!

Ich habs so verstanden dass er alle Eintraege loeschen will, die das Wort enthalten.

Greetz
alcaeus

[Binärbaum]

@quakergod
Dann ändere in den Codezeilen mit pos das >0 in =0 und schon werden die Einträge gelöscht, die das Pattern nicht enthalten.

MfG
Binärbaum

[Hansa]

Zitat:

Zitat von quakergod

hi, ich hab den code getestet jedoch werden die einträge die das wort enthalten gelöscht, und nicht die die es nicht enthalten..?

Pos (blubb...) > 0 heißt : das wort ist da drin. Pos = 0 heißt : es ist NICHT da.

[Binärbaum]

@Hansa:
Das gleiche steht doch schon einen Beitrag weiter oben.

[Hansa]

Es könnte sich um 61 Sek. handeln. 8)

Und hier steht es noch viel früher :

http://www.delphipraxis.net/internal...692&highlight=

:mrgreen:

[quakergod]

Delphi-Quellcode:

function DeleteStrings(Items: TStrings; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
  DeleteEntry: Boolean;
  i : integer;
begin
  Result := 0;
  for i := Items.Count-1 downto 0 do
  begin
    if CaseSensitive then
      DeleteEntry := (Pos(Pattern, Items[i]) = 0)
    else
      DeleteEntry := (Pos(LowerCase(Pattern), LowerCase(Items[i])) = 0 );
    if DeleteEntry then
    begin
      Items.Delete(i);
      Inc(Result);
  end;
end;
end;

wenn ich die funktion so aufrufe:

Delphi-Quellcode:

DeleteStrings(lb_streams.Items, edit_filter.Text, False);

funktionierts ganz gut, nur wenn das wort in der listbox großgeschrieben ist löscht er es auch raus! :?

[Hansa]

Wo ist denn DeleteEntry initialisiert worden ? Davon sehe ich nichts. :shock: Rufst du die Prozedur eventuell mehrmals auf ? "Result" ist als Funktionswert sehr bequem. Aber ich besetze lieber meine eigenen Werte. 8)

[Muetze1]

Moin!

@quakergod: Die Procedure verhält sich vollkommen richtig, schliesslich sagst du ihr beim Aufruf das sie die Gross- und Kleinschreibung nicht beachten soll!

Rufe die Procedure mit

Delphi-Quellcode:

DeleteStrings(lb_streams.Items, edit_filter.Text, True);

auf und es klappt.

MfG
Muetze1

[alcaeus]

Zitat:

Zitat von Hansa

Wo ist denn DeleteEntry initialisiert worden ? Davon sehe ich nichts.

Du nicht? Ich schon:

Delphi-Quellcode:

if CaseSensitive then 
  DeleteEntry := (Pos(Pattern, Items[i]) = 0) 
else 
  DeleteEntry := (Pos(LowerCase(Pattern), LowerCase(Items[i])) = 0 );

DeleteEntry wird in JEDEM Fall intialisiert :zwinker:

@quakergod: nachdem ich für CaseSensitive einen DefaultWert (=True) zugewiesen habe, brauchst du die Funktion auch nur mit 2 Parametern weglassen. Wenn der 3. Parameter True sein soll, lass ihn weg. Dann wird auch auf die Groß-/Kleinschreibung geachtet.

Greetz
alcaeus