Hello!
Ich möchte meine Anwendung erweitern und benötige hierzu statt eines einfachen Integer Typs ein TObject hinter einem TListViewItem.
Bisher habe ich folgendes gemacht:
Code:
// Zuweisen
ai := ListView1.Items.Add;
ai.Data['idata'] := 5; // 5 = Typ Integer
// Auslesen
ai := ListView1.Selected;
i := ai.Data['idata'].AsInteger; // Ergebnis = 5
Jetzt möchte ich statt Integer ein TObject verweden:
Code:
// Definition
type Tooo = class(Tobject)
i: Integer;
end;
var o: Tooo;
// Zuweisen
o := Tooo.Create;
o.i := 5;
ai := ListView1.Items.Add;
ai.Data['odata'] := o; // o = Typ Tooo
// Auslesen
ai := ListView1.Selected;
if ai.Data['odata'].IsObject then // -> True
begin
o := Tooo(ai.Data['odata'].AsObject); // Ergebnis = nil !!!
end;
Irgendeine Idee?