[S] Hile bei listview to txt file

ich bin gerade an nem PW manager und wollte fragen wie ich das problem löse :

Code:

---

Zugriffsverletzung bei Adresse 00466990 in Modul 'Project1.exe'. Lesen von Adresse 00000024.

---

Der Error kommt bei der Zeile :

Code:

---

memo1.lines.add(Zeile);

---

also muss der fehler in

Code:

---

zeile := lv1.items.Item[i].Caption +' : '+lv1.items.Item[i].SubItems[0]+ ' : '+lv1.items.Item[i].SubItems[1]+' : '+lv1.items.Item[i].SubItems[2];

---

sein

Code:

---

procedure TForm1.Button2Click(Sender: TObject);
var
zeile:string;
anz, i:integer;
begin
anz := lv1.Items.Count;
for i := 0 to anz do
begin
zeile := lv1.items.Item[i].Caption +' : '+lv1.items.Item[i].SubItems[0]+ ' : '+lv1.items.Item[i].SubItems[1]+' : '+lv1.items.Item[i].SubItems[2];
memo1.lines.add(Zeile);
end;
 if SD.execute then
  memo1.lines.SaveToFile(sd.filename);
end;

---

Schon mal so probiert?

Code:

---

procedure TForm1.Button2Click(Sender: TObject);
var
zeile:string;
anz, i:integer;
begin
anz := lv1.Items.Count;
for i := 0 to anz do
begin
zeile := lv1.items[i].Caption +' : '+lv1.items[i].SubItems[0]+ ' : '+lv1.items[i].SubItems[1]+' : '+lv1.items[i].SubItems[2];
memo1.lines.add(Zeile);
end;
 if SD.execute then
  memo1.lines.SaveToFile(sd.filename);
end;

---

tatsache, ist mir gar nciht aufgefallen. das wird auf jeden fall einen fehler verursachen...

öm wieso nicht so ? :)

Zitat:

---

var
i:integer;
begin
for i := 0 to lv1.Items.Count -1 do
begin
memo1.Lines.Add(lv1.items[i].Caption +' : '+lv1.items[i].SubItems.Strings[0] + ' : '+lv1.items[i].SubItems.Strings[1]+ ' : '+lv1.items[i].SubItems.Strings[2]);
end;

---

bisschen alt der thread aber fals einer mal das gleiche prob hat :)