Klasse in Liste speichern (ObjectList, ComponentList)

[Helmi]

Hallo,

ich habe eine Klasse, die ich so definiere:

TLabelFeld = packed class Wie kann ich diese nun in einer Liste eintragen?

Bei einer TObjectList und bei einer TComponentList bekomm ich immer die Meldung
dass die nicht kompatibel wären.

[jaenicke]

packed class? Lass einmal das packed weg, weißt du was das bewirkt?

// EDIT:
Allerdings funktioniert auch das bei mir, auch wenn ich packed nur von Records kenne. Wie sieht denn der Code aus?

[Helmi]

Zitat von jaenicke:

packed class? Lass einmal das packed weg, weißt du was das bewirkt?

Ehrlich gesagt kenn ich das nur von Records und da bewirkt es, dass der Speicher zusammen geschmissen wird
(also jetzt mal ganz grob gesagt)

[mkinzler]

Es wird nicht an Byte, Word usw. ausgerichtet.

[Helmi]

Aber ohne packed funktionierts auch nicht - die gleiche Meldung

[jaenicke]

Ja, ich habe ja geschrieben, dass es bei mir auch mit funktioniert, ich wusste nur nicht, dass packed auch mit Klassen funktioniert (und error insight scheint das auch nicht zu wissen ).

Wie sieht denn nun der Code aus?

[Helmi]

Bei diesem Text mault Delphi:

i := ObjectList.IndexOf(Dummy_Label); Wobei i vom Typ Integer ist und Dummy_Label vom Typ LLabelFeld

hab aber jetzt rausgefunden, wenn ich es so mache:
i := ObjectList.IndexOf(TObject(Dummy_Label)); dann funktionierts...

[jaenicke]

Also bei mir klappt das mit IndexOf auch ohne Cast.

Ich habe das jetzt mit Delphi 2006 getestet.

[Helmi]

Wenn ich "class (TObject)" schreibe, dann gehts auch ohne cast.

[jaenicke]

Wenn man nichts als Elterntyp angibt, dann ist das aber automatisch TObject. Und ich kann das Problem auch mit Delphi 7 nicht sehen, auch da funktioniert IndexOf ohne Cast und ohne explizit von TObject abzuleiten.

Aber ist ja auch nicht so wichtig, wenn es jetzt bei dir funktioniert.