Einträge nicht nur aus Listbox entfernen

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

[jawo3]

So, ich habe die eine Schleife rausgeworfen, aber immernoch "list index out of bounds"...
Irgendwie fühle ich mich gerade ziemlich dumm:(

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
    z:=Wurzel;
    zaehler:=0;
    while z<>nil do
    begin                               //Schleife, die Änderung in die Zeigerstruktur übernimmt
      if ListboxAnzeige.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;
    if ListBoxAnzeige.Count<=letzter then dec(letzter);     //Eintrag an der Stelle der letzten Löschung wird markiert
    ListBoxAnzeige.Selected[letzter]:=true;
  end;
end;

[DeddyH]

Mich wundert es eher, dass Du keine AV oder InvalidPointerOperation bekommst. Du gibst ggf. den Speicher für z frei und greifst anschließend auf den Inhalt der nicht mehr existenten Referenz zu. Hast Du die Tutorials wirklich durchgeackert?

[jawo3]

Ja, ich habe alles aus dem Link von oben durchgelesen
(http://www.michael-puff.de/Programmi...s/Listen/HTML/)
insbesondere die Prozedur DeleteNextNode. Es ist mir nur die Frage aufgekommen was genau jetzt "Node.next" gemeint ist, weil das vorher noch nicht deklariert wurde.
Ich meine, das auch soweit verstanden zu haben, aber ich kann das nicht richtig umsetzen, weil mich dieses zusätzliche mit dem markierten ListBox-Element und dem Zähler verwirrt.

Es wäre super, wenn du mir genau erklären könntest, was ich machen muss. Ich habe vorher noch nie mit Listen gearbeitet und kann das normalerweise immer erst verstehen, wenn ich es vor mir habe...

Danke für deine Mühen
jawo3

[jawo3]

Auch in der dort verwendeten Form funktioniert das nicht...:(
Ich habe nochmal einen neuen Zeiger Temp_z als Zwischenschritt erstellt.

Das läuft aber immer noch nicht... Bitte hilf mir :cry:

Delphi-Quellcode:

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

[DeddyH]

Da ich zu der Überzeugung gekommen bin, dass das mit Worten schwieriger zu beschreiben ist als mit Code, ausnahmsweise (aus der hohlen Hand getippt, daher ohne Gewähr):

Delphi-Quellcode:

procedure TForm1.ButtonEntfernenClick(Sender: TObject); //Button entfernt markierte Einträge aus der Liste
var zaehler: integer;
    PCurrent,      //Zeiger auf das aktuelle Listenelement
    PPrior,        //Zeiger auf den Vorgänger von PCurrent
    PNext: Zeiger; //Zeiger auf den Nachfolger von PCurrent
begin
  PCurrent := Wurzel; //an der Wurzel anfangen
  zaehler := 0;
  PPrior := nil;      //die wurzel hat keinen Vorgänger
  while (PCurrent <> nil) and (zaehler < ListBoxAnzeige.Count) do
    begin //Schleife, die Änderung in die Zeigerstruktur übernimmt
      //zuerst Zeiger auf den Nachfolger sichern
      PNext := PCurrent^.naechster;
      //Element ist zum Löschen markiert
      if ListBoxAnzeige.Selected[zaehler] then
        begin
          //Sonderfall: Wurzelelement soll gelöscht werden
          if PCurrent = wurzel then
            begin
              //Speicher freigeben
              Dispose(PCurrent);
              //wurzel entsprechend neu setzen
              wurzel := PNext;
              //und weiter positionieren
              PCurrent := wurzel;
            end
          else
            begin
              //wenn meine Logik stimmt, ist die Abfrage unnötig, aber man weiß ja nie
              if PPrior <> nil then
                begin
                  //Nachfolger des Vorgängers auf eigenen Nachfolger umbiegen
                  PPrior^.naechster := PNext;
                  //und Speicher freigeben
                  Dispose(PCurrent);
                  //weiter positionieren
                  PCurrent := PNext;
                end;
            end;
        end
      else
        //gab nix zu löschen
        begin
          //aktuelles Element als Vorgänger merken
          PPrior := PCurrent;
          //nächstes Element zum aktuellen machen
          PCurrent := PNext;
        end;
      //Zähler inkrementieren
      inc(zaehler);
    end;
  ListBoxAnzeige.DeleteSelected;
end;

Es kann sehr gut sein, dass da noch Fehler enthalten sind, aber das wirst Du ja dann merken.

[jawo3]

Vielen, vielen Dank!

Das war alles super verständlich und funktioniert einwandfrei:!:

:thumb:
jawo3