TListBox, Eintrag finden, dann löschen

[Pseudemys Nelsoni]

Moin,

hab da mal ne Frage, und zwar hab ich eine TStringList und eine TListbox
in der StringList sind einige strings, einen davon möchte ich löschen. Sagen wir mal das Wort das ich löschen möchte heisst "blabla", wo ich aber nicht weiss in welcher zeile das steckt...Also wie kann ich nach dem String suchen und in dann entfernen? Wenn ich das hab füg ichden inhalt der stringlist in meine listbox ein.

kann mir jemand helfen?

gruss silent

[Christian Seehase]

Moin Silent,

wenn ich das richtig verstanden habe:

Mit der Methode IndexOf kannst Du den String finden, und mit Delete löschen.

[Pseudemys Nelsoni]

habs jetzt so:

Delphi-Quellcode:

procedure TForm1.IdIRC1Part(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
var bla: integer;
begin
for bla := 0 to sl2.IndexOf(auser.Nick) do
  begin
  sl2.Delete(bla);
  listbox1.Clear;
  listbox1.Items.AddStrings(sl1);
  listbox1.Items.AddStrings(sl2);
  end;
end;

end.

und es funzt...

danke chris