Hallöle,
ich probiere gerade ein wenig mit der Delphi 7 Enterprise Trial Version herum
und hab folgendes Problem.
Bei diesem Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
ListItem : TListItem;
begin
for i := 0 to ListView1.Items.Count do begin
If(ListView1.Items.Item[i].Selected = true) then begin
ListItem := ListView2.Items.Add();
ListItem.Caption := ListView1.Items.Item[i].Caption;
ListItem.SubItems.Add(ListView1.Items.Item[i].SubItems[1]);
ListItem.SubItems.Add(ListView1.Items.Item[i].SubItems[2]);
ListItem.SubItems.Add('-');
ListItem.SubItems.Add('-');
ListItem.SubItems.Add('-');
end;
end;
end; |
kriege ich immer eine EAccessViolation.
Ich meine mittlerweile durch auskommentieren herausgefunden zu haben,
daß es an dieser Zeile liegt:
Delphi-Quelltext
1:
| If(ListView1.Items.Item[i].Selected = true) then begin |
Woran könnte es liegen?
Danke im vorraus
meax
