Zitat von
Bernhard Geyer:
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.
Hallo Bernhard!
Vielen Dank, klappt aber leider nicht. So ähnlich hatte ich es auch schon versucht, das Memo bleib auch leer.
Delphi-Quellcode:
Var
t, j :Integer;
begin
if SaveDialog1.Execute then
begin
for t := 0 to ListView1.Items.Count - 1 do
Memo1.Lines.Add(ListView1.Items[t].Caption);
for j := 0 to ListView1.Items[j].SubItems.Count - 1 do
Memo1.Lines.Add(ListView1.Items[j].SubItems[j]);
end;
Deswegen auch die "dumme" Frage von mir.
Gruß
Heike