Dispose -> ungültige Zeigeroperation

[PASST]

Hallo allerseits,

nachdem ich ein Programm von Delphi4 auf Delphi7 umgestellt (neu compiliert) habe, erhalte ich beim Dispose eine Exception der Klasse EInvalidPointer 'Ungültige Zeigeroperation'.

Ich verwende den Pointer, um in einer Combobox zu jedem Eintrag einen zweiten Wert speichern zu können.

Delphi-Quellcode:

// Data record
type
  TCodeRecord = Record
    Code: String;
  end;
  // Pointer to data record
  PLngMix    = ^TCodeRecord;
  PArtikel   = ^TCodeRecord;
  PLieferant = ^TCodeRecord;
  PSorte     = ^TCodeRecord;

[...]

// Hier fülle ich die ComboBox, im Augenblick mit 18 Einträgen
    cboxArtikel.Items.clear;
    cboxArtikel.Text := '';
    new(Artikel);
    while not eof do
    begin
      If fieldbyname('PLUNR').asstring = '' then
        Artikel^.Code := ' '
      else
        Artikel^.Code := fieldbyname('PLUNR').asstring;
      cboxArtikel.Items.AddObject(fieldbyname('NAME').asstring, TObject(Artikel));
      next;
    end;
    close;

// Hier leere ich die ComboBox vom letzten bis zum ersten Eintrag wieder
// Der letzte 17. Eintrag lässt sich löschen,
// aber beim nächsten 16. Eintrag erhalte ich die Exception
  if cboxArtikel.Items.Count > 0 then
    for i := cboxArtikel.Items.Count - 1 downto 0 do
      Dispose(PArtikel(cboxArtikel.Items.Objects[i]));

Kann mir jemand helfen?

Gruß
Peter

[defede]

Hallo,
Ist nur eine Idee aber wenn du mal versucht nur den Index 0 immer zu Löschen?
Falls das Array beim Löschen zusammenrutscht kann der INdex ja nicht gefunden werden.

[PASST]

Nein, da fällt nichts zusammen. Der Index 16 ist ja vorhanden. Ich kann mir auch den Wert cboxArtikel.Items[16] anzeigen lassen nachdem Dispose(PArtikel(cboxArtikel.Items.Objects[17])) erfolgreich war.

[defede]

Na dann vor dem Delete einfach prüfen ob das Object <> NIL ist? Ich meine damit würdest du das ganze umgehen aber
so richtig gut ist diese Lösung auch nicht.

[gmc616]

Mußt du nicht für jeden Eintrag in die Combobox einen neuen Artikel erstellen?

Delphi-Quellcode:

    // Hier fülle ich die ComboBox, im Augenblick mit 18 Einträgen 
    [ ... ]
    // new(Artikel);  // --> hier raus
    while not eof do
    begin
      new(Artikel);  // <-- hier rein
      If fieldbyname('PLUNR').asstring = '' then
        Artikel^.Code := ' '
      else
        Artikel^.Code := fieldbyname('PLUNR').asstring;
      cboxArtikel.Items.AddObject(fieldbyname('NAME').asstring, TObject(Artikel));
      next;
    end;

denn beim Entfernen aus der ComboBox gibts du das Objekt auf dem Zeiger PArtikel frei.
Da du aber beim Füllen immer das gleiche Objekt verwendest, werden beim löschen des 17. Artikels alle Objekte (was quasi ja nur einens ist) von 17 bis 0 freigeben.

nur eine Vermutug, denn so hab ich mit Comboboxen noch nicht gearbeitet.

[omata]

@gmc616: :thumb: genau das ist es.

[PASST]

Danke, so klappt es. Allerdings wundert es mich, wenn es dann in Delphi 4 funktioniert haben sollte!?

[jbg]

Zitat:

Zitat von PASST

Danke, so klappt es. Allerdings wundert es mich, wenn es dann in Delphi 4 funktioniert haben sollte!?

Wenn das so war, war es reiner Zufall und eine tickende Zeitbombe, die nun eben hochgegangen ist.