TComboBox.AddObject - Adressverletzung

[Mazen]

Hallo Leute,
ich hab ein Problem mit diesem Code:

Delphi-Quellcode:

for i:=0 to 9 do
begin
  preisliste := TPreisliste.Create();
  preisliste.Preisgruppe := dm.smtPreislisten.FieldByName('NR').AsString;
  preisliste.Jahr := dm.smtPreislisten.FieldByName('JAHR').AsString;
  preisliste.Periode := dm.smtPreislisten.FieldByName('PERIODE').AsString;

  combobox.Items.Add(dm.smtPreislisten.FieldByName('DATUM_VON').AsString);
  combobox.Items.AddObject('Preisliste'+IntToStr(i),preisliste);
  dm.smtPreislisten.Next;
end;
combobox.ItemIndex := 0;  
ShowMessage(TPreisliste(combobox.Items.Objects[combobox.ItemIndex]).Preisgruppe); <--

An der makierten Stelle bekomme ich eine Adressverletzung. Ich habe schon eine Idee wodran es liegt. Und zwar habe ich mal probiert den ItemIndex in der vorletzten Zeile auf das letzte Item zu legen (ItemIndex := Items.Count-1). Und siehe da, beim letzten angehängten Objekt funktioniert es. Die davor scheinen nicht mehr zu exisitieren.

Überschreibe ich also bei jedem Schleifenbeginn das letzte Objekt? Wird nicht nur eine "Kopie" des Objekts in der Combobox hinterlegt?

Gruß,
Matthias

[baumina]

combobox.Items.Add(dm.smtPreislisten.FieldByName('DATUM_VON').AsString); erzeugt einen Eintrag bei Items ohne angehängtes Objekt.
combobox.Items.AddObject('Preisliste'+IntToStr(i),preisliste); erzeugt einen Eintrag bei Items mit angehängtem Objekt.

Das heißt, dass jeder 2. Itemeintrag ein Objekt besitzt (1,3,5,...). Der Item mit dem Index 0 hat kein angehängtes Objekt, deswegen Fehler.

[Mazen]

Achso, dann hab ich das Prinzip schon falsch verstanden.

Ich dachte combobox.Items.Add fügt mir den "sichtbaren" Eintrag in die Combobox und Items.AddObject lediglich das Objekt mit einer ebenfalls unsichtbaren Bezeichnung.

Also ist AddObject so zu verstehen das der erste Parameter der Listeneintrag ist, und der zweite das hinterlegte Objekt?

[baumina]

Zitat von Mazen:

Also ist AddObject so zu verstehen das der erste Parameter der Listeneintrag ist, und der zweite das hinterlegte Objekt?

Ja, genau so ist es.

[DeddyH]

TStrings.AddObject

Zitat:

Fügt der Liste einen String hinzu und ordnet dem String ein Objekt zu.

Mit AddObject fügen Sie der Liste einen String hinzu und ordnen dem String ein Objekt zu. AddObject gibt den Index des neuen String und des neuen Objekts zurück.

[Mazen]

Super, danke für die flotte Hilfe

[haentschman]

Moin...

und wo werden deine erzeugten TPreisliste wieder freigegeben ?

[sx2008]

Zitat von haentschman:

und wo werden deine erzeugten TPreisliste wieder freigegeben ?

Das sollte man nicht vergessen.
Hier eine nützliche Prozedur dazu

Delphi-Quellcode:

{**************************************************************************
 * NAME:    FreeTStringsObjects
 * DESC:    free all objects attached to a TStrings-Object
 *************************************************************************}
procedure FreeTStringsObjects(sl: TStrings);
var
   i: Integer;
   o: TObject;
begin
   Assert(Assigned(sl));
   for i := sl.Count-1 downto 0 do
   begin
      o := sl.Objects[i];
      if Assigned(o) then
      begin
         o.Destroy;   // spart Zeit gegenüber .Free
         sl.Objects[i] := nil;
      end;
   end;
end;