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