ListBoxeinträge nach einem bestimmten Wort durchsuchen

[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