Löscht TComboBox.Items.Clear auch Objekte?

[Carsten1234]

Hallo zusammen,

in einer Applikation existieren max. 40 feste und 10 frei vom Anwender eingebbare Einheiten. Zu erwähnen ist, dass bislang nur ca. 20 fixe Einheiten existieren und die Liste auch Lücken aufweisen kann. Alle Einheiten sollen jedoch in einer TComboBox dargestellt werden.
Nun besteht allerdings die "Gefahr", dass der Anwender bei den frei eingebbaren Einheiten eine Einheit eingibt, die bereits bei den festen Einheiten vorhanden ist, doch dies soll möglich sein (über Sinn und Unsinn darüber will ich nicht sprechen).
Damit ich jedoch nun in der ComboBox unterscheiden kann, ob es sich bei der selektierten Einheit um eine feste oder freie Einheit handelt, habe ich die TComboBox analog diesem Beispiel um AddObject erweitert ala

Delphi-Quellcode:

const
  FIXEINHEITEN  = 40;
  FREIEINHEITEN = 10;

for x:= 1 to FIXEINHEITEN  do
begin
  if (Length({Bezeichnung fixe Einheit}) > 0)  
    ComboBox.Items.AddObject({Bezeichnung fixe Einheit}, TObject(x));
end;

for x:= 1 to FREIEINHEITEN do
begin
  if (Length({Bezeichnung freie Einheit}) > 0) then
  ComboBox.Items.AddObject({Bezeichnung freie Einheit}, TObject(x+FIXEINHEITEN));

Die in der ComboBox selektierte Einheit ermittle ich über

Delphi-Quellcode:

var Idx: integer;
Idx:= Integer (ComboBox.Items.Objects[ComboBox.ItemIndex]);

und wenn Idx > FIXEINHEITEN ist, weiß ich, dass die selektierte Einheit eine selbstdefinierte Einheit ist.

Zurück zum Betreff:
Da, wie geschrieben, der Anwender auch selbst definierte Einheiten eingeben bzw. verändern kann, schmeiße ich nach einer Veränderung erstmal alle Einträge in der ComboBox mit

Delphi-Quellcode:

ComboBox.Items.Clear;

weg.
Frage: Schmeißt die Clear-Routine auch die Objekte weg oder entsteht da wohlmöglich ein Speicherleck?
Eine TComboBox.Items.DeleteObject od. ähnl. existiert ja nicht...

Dank vorab und Gruß, Carsten

[himitsu]

standardmäßig nein.


bei der ListView gibt es ein OnItemDelete-Ereignis, wo man das Objekt hätte sehr gut freigeben önnen, das vermiß ich hier leider :?

[jfheins]

Du benutzt ja keine Objekte => Es entstehen auch keine Speicherlecks.

Auch wenn der name "Objects" etwas anderes vermuten lässt, du mißbrauchst benutzt das Feld ja für einen Integer ;)

[Muetze1]

Zitat:

Zitat von jfheins

Du benutzt ja keine Objekte => Es entstehen auch keine Speicherlecks.

Tolle Begründung. Bei deiner Aussage kann man gleich die andere Annahme treffen: wären es Objekte, gibt er sie frei. Aber genau das geschieht nicht! Die Liste weiss nicht ob ihr da echte Objekte angehangen werden oder Zeiger oder halt Ordinalwerte wie du es machst. Von daher wird mit den Objekten nichts gemacht.

[Carsten1234]

Bisher also nur ein klares JEIN. :gruebel:
Besser?

Delphi-Quellcode:

for x:= 0 to ComboBox.Items.Count- 1 do
begin
  if (Assigned(TObject(ComboBox.Items.Objects[x]))) then
    TObject(ComboBox.Items.Objects[x]).Free;
end;
ComboBox.Items.Clear;

[DeddyH]

Wären es tatsächlich Objekte, müsstest Du Dich selbst um die Freigabe kümmern. Da Du aber anscheinend einfach nur einen Integer nach TObject castest, um ihn einfügen zu können, wird diese Freigabe ja nicht benötigt.

[himitsu]

ein klares NEIN.


alles was als Objekt oder per Pointer da eingetragen/drangehängt wurde, wird nicht freigegeben,

aber was direkt in dem Wert drinsteht, also z.B. dein Integer oder etwas anderes, welches direkt in den Objekt-Parameter eingetragen/umgecastet wurde, wird natürlich mit freigegeben, da es ja direkt da drinsteckt und somit mit verschrindet, wenn man den "Parameter" löscht


Es wäre übersichtlicher, wenn man es statt als Objekt als Integer definiert hätte (ebenso wie .Tag), dann wäre es offensichtlicher gewesen.
Also stell dir einfach vor es sei in Integer und kein TObject :stupid:

[add]

Delphi-Quellcode:

TObject(ComboBox.Items.Objects[x]).Free;

da du ja kein Objekt drin hast, würde dieses nicht Funktionieren und zu 99,99...% in einer Exception enden.
(der Rest würde rein zufällig auf ein anderes Objekt zeigen und dieses freigeben)