[S] Hile bei listview to txt file

[Paloxus]

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

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

Der Error kommt bei der Zeile :

memo1.lines.add(Zeile);

also muss der fehler in

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

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;

[gORDon_vdLg]

Schon mal so probiert?

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;

[gORDon_vdLg]

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

[trixx3r]

öm wieso nicht so ?

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