Listbox durchsuchen

[mkinzler]

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

[leddl]

Zitat von mkinzler:

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

Deshalb gilt hier eigentlich vor allem: erstmal lesen vor dem Posten
(Sorry, den konnte ich mir nicht verkneifen )

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

[leddl]

Zitat von Nelphin:

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

Solange du beim Durchlauf nichts löschst, ist das auch nicht weiter schlimm
Solltest du es mal brauchen, die Syntax ist dann wie folgt:
for i := maxvalue downto 0 do

[sx2008]

Man könnte der Listbox auch die Message LB_SELECTSTRING schicken und Windows die Arbeit überlassen.
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx