Hallo,

ich würde gerne alle leeren Items aus meiner ListBox löschen, jedoch kann es sein, dass diese zu der Zeit, wo die Prozedur aufgerufen wird, total leer ist.
Folgendes habe ich mir überlegt:

markieren

Delphi-Quellcode:

  if ListBox.Count >= 1 then
  begin
    for i := 0 to ListBox.Count do
    begin
      if ListBox.Items.Strings[i] = '' then
      begin
        ListBox.Items.Delete(i);
      end;
    end;
  end;

Leider bekomme ich eine Meldung: Exception der Klasse EStringListError mit der Meldung 'Listenindex überschreitet das Maximum(16)'.

Woran kann das liegen?

Danke

Beim Löschen, immer von oben, da sonst die Grenze nie erreicht wird, da nach Löschen des ersten, der 2. den Index 0 bekommt. Oder immer den 1. Löschen.
In diesem Fall könntest du auch ListBox1.Clear; aufrufen.

2 Sachen:
1. Die Schleife muss rückwärts laufen, also nicht for..to sondern for..downto.
Sagen wir mal, die ListBox hat 10 Einträge. Wird jetzt einer gelöscht, sind es nur noch 9, die Schleife läuft trotzdem bis 10 durch.
2. Muss es so heißen:for i := 0 to ListBox.Count - 1 do Da es bei 0 anfängt, ist das letzte Element Count - 1

Mfg

[Edit]

Zitat von mkinzler:

In diesem Fall könntest du auch ListBox1.Clear; aufrufen.

Zitat von mo_greene:

ich würde gerne alle leeren Items aus meiner ListBox löschen

Ich habe es jetzt so gemacht

zusammenfalten · markieren

Delphi-Quellcode:

  if ListBox.Count >= 1 then
  begin
    for i := ListBox.Count downto 0 do
    begin
      if ListBox.Items.Strings[i] = '' then
      begin
        ListBox.Items.Delete(i);
      end;
    end;
  end;

Leider bekomme ich immernoch die gleiche Fehlermeldung

for i := ListBox.Count-1 downto 0 do

Klasse, vielen Dank!

Hallo,

für den Eingangstest hast du gar keine Erklärung geliefert.

zusammenfalten · markieren

Delphi-Quellcode:

procedure DeleteItems(s: TStrings; const item: string = '');
var
  i: Integer;
begin
  s.BeginUpdate;
  try
    for i := Pred(s.Count) downto 0 do
      if s[i] = item then
        s.Delete(i);
  finally
    s.EndUpdate;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

Zitat von mo_greene:

Klasse, vielen Dank!

Schalte zum programmieren die Bereichsprüfung in deinem Projekt an und du wärst vom Programm mit der Nase drauf gestossen worden...

Zitat von Muetze1:

Schalte zum programmieren die Bereichsprüfung in deinem Projekt an und du wärst vom Programm mit der Nase drauf gestossen worden...

Wie schalte ich die ein?

Projekt -> Optionen -> Compiler -> Bereichsprüfung