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;