String in Listview Data ?

[Blamaster]

Hi,

Nachdem SirThornberrys Vorschlag so auch nicht wirklich funktionieren wollte, (ich denke mal der Sehler war das ich dann immernoch mit string(Item.Data) auslesen wollte ?), habe ich nun einfach ein eigenes Objekt erstellt.

Dies kann ich nun endlich so handeln wie ich es auch von der Progressbar gewohnt war.

Delphi-Quellcode:

var
 TestObject: TTestObject;
 item: TListItem;
 i: integer;
begin
 
 for i := 0 to 10 do
 begin
  item := ListView.Items.Add;
  item.Caption := 'Eintrag Nr. ' + IntToStr(i);
  TestObject := TTestObject.Create;
  TestObject.String := 'String im Data des Item: ' + IntToStr(i);
  item.Data := TestObject; 
 end;
  
end;

und das auslesen dann einfach über:

Delphi-Quellcode:

var
 MeinString: String
begin
 MeinString := TTestObject(ListView.Items.Item[i].Data).String;
 ShowMessage(MeinString);
end;

Funktioniert jetzt soweit auch alles super und hat sogar den Vorteil das ich um einiges flexibler bin.

Danke für all die Hilfe

Mfg Yannic