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