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 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 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.