Wo zum ... ist das Object geblieben ?

[Karsten]

Hallo,

ich habe folgendes Problem:
Zum Drucken von Daten habe ich eine Form die eine Vor-Selektion der zu druckenden Daten enthält.

Auf dieser Form befindet sich eine CheckListBox in der ich die Datensätze über

Code:

CheckListBox.AddItem(MyDummy.Dummy1, MyDummy);

reinschreibe.

So ganz nebenbei:

Code:

type
  TDummyData = class
  public
    Dummy1: String;
    Dummy2: Integer;
    ...

    procedure ReadFromStream(aStream: TStream);
    procedure WriteToStream(aStream: TStream);
  end;

Nachdem die endgültige Selektion vorgenommen wurde und der Button 'Drucken' gedrückt wurde übernimmt wieder mein Haupt-Form und liest die Daten (Checked und die Object-Referenz) aus; wenns dann mal klappt.

Das Auslesen erfolgt über:

Code:

MyDummy := Form1.CheckListBox.Items.Objects[Index];

was aber dummerweise beim Komplieren zu einer Fehlermeldung führt.

Incompatible types: 'TDummyData' and 'TObject'

Einfügen über addItem scheint zu klappen (oder liegt da schon ein Fehler), aber das auslesen ...

Was mache ich falsch ?

Gruß,
Karsten

[jbg]

Zitat:

Zitat von Karsten

Was mache ich falsch ?

Items.Objects[] liefert immer ein TObject. Da deine Klasse von TObject abgeleitet ist (auch wenn man das nicht sieht), kannst du sie auch AddItem übergeben. Beim auslesen kann der Compiler aber nicht wissen, dass du nur Instanzen von TDummyData in Objects[] hast. Du musst es ihm also sagen und das kannst du per Typecast oder mit dem as Operator tun.

Delphi-Quellcode:

obj := Items.Objects[Index] as TDummyData; // ist langsamer
obj := TDummyData(Items.Objects[Index]);

[Karsten]

Danke,

funktioniert perfekt.

Gruss,
Karsten