Zitat von
smart:
Vielen Dank, klappt aber leider nicht. So ähnlich hatte ich es auch schon versucht, das Memo bleib auch leer.
Delphi-Quellcode:
for j := 0 to ListView1.Items[j].SubItems.Count - 1 do
Memo1.Lines.Add(ListView1.Items[j].SubItems[j]);
ziemlich gefährlich...du erhöhst j bis zu subitems.count von item j, d.h. du fügst subitem1 von item 1 hinzu, subitem2 von item 2 usw....
was passiert, wenn mehr subitems als items vorhanden sind?
ich denke mal, du willst es in etwa so machen:
Delphi-Quellcode:
for k:=0 to Listview1.items.count-1 do
begin
Memo1.lines.add(listview1.Items[k].caption);
for j:=0 to listview1.Items[k].subitems.count-1 do
begin
Memo1.Lines.add(' '+listview1.Items[k].subitems[j]);
end;
end;
Gruß Frank