Einträge nicht nur aus Listbox entfernen

[jawo3]

Ich schau mir das mal an danke...

[jawo3]

Ich habe mir das jetzt so gedacht für den Entfernen-Button, aber leider funktionier das nicht.
Ich erhalte die Fehlermeldung: Invalid Pointer Operation.

Hier der Quelltext zum Entfernen Button:

Delphi-Quellcode:

procedure TForm1.ButtonEntfernenClick(Sender: TObject);    //Button entfernt markierte Einträge aus der Liste
var ii: integer;
    letzter : integer;
begin
  if ListBoxAnzeige.Count<>0 then
  begin
  with ListBoxAnzeige do
      begin
        for ii := -1 + Items.Count downto 0 do
        if Selected[ii] then
        begin
          z:=Wurzel;
            while z<>nil do                               //Schleife, die Änderung in die Zeigerstruktur übernimmt
              begin
                z:=z^.naechster;
                z^.naechster:=z^.naechster.naechster;
                Dispose(z);
              end;
          Items.Delete(ii);
          letzter:=ii;
        end;
      if ListBoxAnzeige.Count<=letzter then dec(letzter);     //Eintrag an der Stelle der letzten Löschung wird markiert
      ListBoxAnzeige.Selected[letzter]:=true;
      end;
  end;
end;

Vielen Dank im Voraus
jawo3

[DeddyH]

Du willst innerhalb der For-Schleife die komplette verkettete Liste bis auf die Wurzel freigeben?

[jawo3]

Eigentlich nicht

Ich muss also noch einschränken und abgleichen, ob das markierte Element dem aktuellen Zeiger entspricht?

[jawo3]

Dieser Versuch ist leider auch kläglich gescheitert:

Delphi-Quellcode:

procedure TForm1.ButtonEntfernenClick(Sender: TObject);    //Button entfernt markierte Einträge aus der Liste
var ii: integer;
    letzter : integer;
begin
  if ListBoxAnzeige.Count<>0 then
  begin
  with ListBoxAnzeige do
      begin
        for ii := -1 + Items.Count downto 0 do
        if Selected[ii] then
        begin
          z:=Wurzel;
            while z<>nil do                               //Schleife, die Änderung in die Zeigerstruktur übernimmt
              begin
                z:=z^.naechster;
                if ListBoxAnzeige.Items[ii]=z^.Inhalt then
                begin
                  z^.naechster:=z^.naechster.naechster;
                  Dispose(z);
                end;
              end;
          Items.Delete(ii);
          letzter:=ii;
        end;
      if ListBoxAnzeige.Count<=letzter then dec(letzter);     //Eintrag an der Stelle der letzten Löschung wird markiert
      ListBoxAnzeige.Selected[letzter]:=true;
      end;
  end;
end;

[DeddyH]

Das Hauptproblem ist hier: eine verkettete Liste ist nicht indiziert, die Items der ListBox aber schon. Du wirst also einen "internen Zähler" implementieren müssen. Dabei hat das Wurzelelement der Liste den Zählwert 0, dessen Nachfolger dann die 1 usw.
Pseudocode:

Delphi-Quellcode:

Zaehler := 0;
z := Wurzel;
while z <> nil do
  begin
    if ListBox.Items.Selected(Zaehler) then
      AusListeLöschen;
    z := z^.naechster;
    inc(Zaehler);
  end;

Das ist jetzt ungetestet, sollte im Groben aber stimmen.

[jawo3]

Ich habe gerade mal versucht, das einzufügen, aber ich erhalte immer "list index out of bounds".
Irgendwie habe ich das noch nicht richtig verstanden...

Hier nochmal mein Stand:

Delphi-Quellcode:

procedure TForm1.ButtonEntfernenClick(Sender: TObject);    //Button entfernt markierte Einträge aus der Liste
var ii, zaehler: integer;
    letzter : integer;
begin
  if ListBoxAnzeige.Count<>0 then
  begin
  with ListBoxAnzeige do
      begin
        for ii := -1 + Items.Count downto 0 do
        if Selected[ii] then
        begin
          z:=Wurzel;
          zaehler:=0;
          letzter:=0;
            while z<>nil do
              begin                               //Schleife, die Änderung in die Zeigerstruktur übernimmt
              if Selected[zaehler] then
                begin
                    z^.naechster:=z^.naechster; //.naechster
                    Dispose(z);
                end;
              z := z^.naechster;
              inc(Zaehler);
              end;
          ButtonAnzeigenClick(Sender);      //Neue Liste anzeigen
          letzter:=ii;
          end;
      if ListBoxAnzeige.Count<=letzter then dec(letzter);     //Eintrag an der Stelle der letzten Löschung wird markiert
      ListBoxAnzeige.Selected[letzter]:=true;
      end;
  end;
end;

[DeddyH]

Du hast eine Schleife zuviel. Entweder Du gehst mit der For-Schleife die Items der Listbox durch oder mit der While-Schleife die Liste. Ich würde die 2. Möglichkeit favorisieren, wie in meinem Pseudocode gezeigt.