Item aus einer Listbox entfernen per Text

[Äfan]

Man kann ja bestimmte Einträge aus einer ListBox per Integer-Wert rauslöschen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Delete(2);
end;

Wie kann man das auch mit einem String-Wert machen ? Also nicht nicht Eintrag 3 Löschen sondern Eintrag "Hallo" löschen.

Danke

[Luckie]

Such dir den Index mit der Methode IndexOf.

[Robert_G]

TListBox.Items ist doch TStrings -> Also kannst du mit ...

Delphi-Quellcode:

with DeineListBox.Items do
  Delete(IndexOf('Hallo'));

.. das erste Item, dass den Text "Hallo" enthält, löschen.

Willst du alle löschen, muss das natürlich in einer Schleife passieren:

Delphi-Quellcode:

var
  Idx :Integer
begin
  DeineListBox.BeginUpdate();

  repeat 
    with DeineListBox.Items do
    begin
      Idx := IndexOf('Hallo');
      Delete(Idx);
    end;
  until Idx := -1;

  DeineListBox.EndUpdate();
end;

Nachtrag:
@Luckie
Eigentlich hast du Recht, der Hinweis auf TStrings.IndexOf hätte gereicht. :duck:

[Äfan]

OK Danke :thumb:

[Robert_G]

Zitat:

Zitat von Äfan

Und das geht nur damit ?

Jetzt sage bloß nicht, dass es dir zu umständlich ist. ;)

[Äfan]

Damit hab ich die erste antwort von Lukie gemeint. Ich check das schon, so blöd bin ich ja net :gruebel: . Das von Lukie war verständlich ich dachte nur es gibt ne einfachere Methode, da man da ja erst den Index rausfinden muss um ihn dann zu löschen, bei deinem Code ging das ja einfach (ich wusste das mit with-do nicht) :thumb:

[S2B]

Ich weiß ja nicht, wie du das siehst, aber ich sehe da genau den gleichen Code wie den, den Luckie gemeint hat! :wink:

@Robert_G: ListBox1.Clear ist einfacher! :stupid:

Edit: :shock: Schon 800? :party:

[Robert_G]

Zitat:

Zitat von S2B

@Robert_G: ListBox1.Clear ist einfacher! :stupid:

:cyclops: Wer lesen kann... ;)

Zitat:

Zitat von Äfan

Wie kann man das auch mit einem String-Wert machen ? Also nicht nicht Eintrag 3 Löschen sondern Eintrag "Hallo" löschen.

[S2B]

Was hab ich denn da geschrieben? :roll: