Mit einer For-Schleife
Delphi-Quellcode:
for i := 0 to ListView.Items.Count do
begin
str := ListView.Items[i];
for j := 0 to ListView.Items[j].SubItems.Count - 1 do
str := str + ' ' + ListView.Items[j].SubItems[j]
Den rest solltest du mit 1011 Beiträgen schon hinbekommen.
Windows Vista - Eine neue Erfahrung in Fehlern.