Listbox durchsuchen

[himitsu]

Wenn du nicht abbrechen willst, sobald was gefunden wurde, dann einfach das and (subStrPos = 0) aud der Abfrage in der While-Schleife entfernen.

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
var i: Integer; 
begin 
  i := 0;
  while i < ListBox2.Items.Count do 
  begin 
    if Pos(Edit7.Text, ListBox2.Items[i]) > 0 then 
      MeinMemo.Lines.Add(Listbox2.Items[ListBox2.ItemIndex]);
    inc(i); 
  end; 
end;

Und mit 'ner For-Schleife siehst's bestimmt auch nicht schlecht aus ^_^

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
var i: Integer; 
begin 
  for i := 0 to ListBox2.Items.Count - 1 do
    if Pos(Edit7.Text, ListBox2.Items[i]) > 0then 
      MeinMemo.Lines.Add(Listbox2.Items[ListBox2.ItemIndex]);
end;