TListViewItem und TObject Daten

[DeddyH]

Du hättest aber kenntlich machen können, dass es um FireMonkey geht

[Volker Z.]

Hallo,

hab jetzt kein XE7 am Start. Bei der (direkten) Zuweisung von Objekten ignoriert XE4 scheinbar alles was nicht nach Bitmap "riecht". Was die 7er Version macht kann ich nicht sagen.

So könnte es vielleicht klappen:

Delphi-Quellcode:

// Definition
type
  Tooo = class(Tobject)
    i: Integer;
  end;

var
  o : Tooo;
  i : TListViewItem;
  c : TClass;

  // Zuweisen
  o := Tooo.Create;
  o.i := 5;
  i := ListView1.Items.Add;
  i.Data['odata'] := TClass (o);
  
  // Auslesen
  i := ListView1.Selected;
  c := i.Data['odata'].AsClass;
  if Assigned (c) and (TObject (c).ClassName = 'Tooo') then
    ShowMessage (IntToStr (Tooo(c).i))

Speicher freigeben nicht vergessen.

Gruß

[Daniel]

Ja, das mit den Objekten ist etwas blöd. Casten nach NativeInt geht aber.

[weisswe]

@Volker Z: VIELEN DANK!!! - funktioniert ohne Probleme!

@Bjoerk: Danke für die Meldung - FMX ist aber anders..
@Detlef: Wusste nicht, das es da Unterschiede gibt - verwende die Komponente zum ersten Mal
@Daniel: Ja, hatte bis dato noch keine Probleme Objekte "direkt" zuzuordnen (z.B. TListbox)

Vielen Danke euch Allen,
Werner

[weisswe]

Leider noch ein Problem.
FMX Windows funktioniert mit der Lösung - jedoch nicht mit iOS.
Also nochmal von vorne...
Ich schaue mal ob das ein bekannter Bug ist oder einfach nur nicht "unterstützt" wird...

Grüße,
Werner