Eintrag aus Dynamischen Array und ListBox löschen

[Marcel2906]

Also Delphi meldet keinen Fehler. Aber wenn ich das Programm ausführe klappt es nicht.

[Marcel2906]

Ich hab es jetzt umgestellt, dennoch kommt der Fehler. Aber nur wenn ich den Eintrag löschen will, welcher der letzte vorhandene ist.

Code:

procedure TForm1.Delete;
   var
      MakierteStelle,i: integer;
      rec_p: PBusEintrag;
   begin
      rec_p:=Liste[ListBox1.ItemIndex];
      Dispose(rec_p);
      MakierteStelle:= ListbOx1.ItemIndex;

      //Makierte Stelle kommt an das Ende des Arrays
      while MakierteStelle<high(Liste) do begin
         Liste[MakierteStelle]:=Liste[MakierteStelle+1];
         MakierteStelle:=MakierteStelle+1;
      end;


      //Array wird um 1 verringert
      setLength(Liste,Length(Liste)-1);

      //Makierter Eintrag wird aus ListBox entfernt
      ListBox1.DeleteSelected;
   end;

[himitsu]

Erstmal:
- Merkierte Stelle bei MultiSelekt=False entspricht ListBox.ItemIndex.
- Ist nichts markiert, wird dennoch das Erste gelöscht, wegen deinem MakierteStelle:=0;
- du überschreibst den Zeiger des zu löschenden Eintrags und gibst stattdessen immer den lentzen Eintrag frei (welcher abwer immernoch verlinkt ist)
- ...

[Marcel2906]

leider immer noch Fehler..hab ich etwas falsch berichtigt??

[himitsu]

Der perfekte Zeitpunkt, um mal den Debugger zu fragen.

PS: Wenn man statt dem array eine TList oder TList<> nimmt, dann kann man deren Einträge genauso verwalten, wie die der ListBox
und notfalls könnte man auch gleich auf diese Liste verzichten, da die TListBox selber schon eine Liste enthält, wo man auch jeweils ein Objekt an die Einträge dranhängen kann.

ListBox1.AddItem / ListBox1.Items.AddObject / ListBox1.Items.Objects

[Bummi]

Warum

Liste : Array of PBusEintrag;
und nicht
Liste : Array of TBusEintrag;

wo liegen die Daten die Du mit Dispose freigist ...

[Marcel2906]

ich bin völlig verzweifelt
Ich versteh nur noch Bahnhof