Listbox durchsuchen

[Nelphin]

Zitat von mkinzler:

Deshalb gilt hier auch eigentlich: Neue Frage, neuer Thread!

ok ich werds beherzigen - dachte weil ich in fremden threads so oft gelesen hab: "benutz doch die suche" soll man wenn ein verwandter thread schon existiert diesen benutzen.

Ich sage mal danke und zeige meine derzeitige Lösung:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
Zeilenzahl:Integer;
i:integer;
kandidat:integer;
a:integer;
begin
a:=0;
Zeilenzahl:=listbox1.items.count;
for i := 0 to Zeilenzahl-1 do
   begin
     kandidat:=  pos('suchwort',listbox1.Items[i]);
     if kandidat <> 0 then
     begin
       listbox2.items[a]:=copy(listbox1.Items[i],0,100);
       a:=a+1;
     end;

   end;

end;

das mit der rückwärtslaufenden schleife zum löschen hab ich nicht so hinbekommen, aber fürs erste kann ich damit leben.

danke nochmal...