TListview - EAccessViolation

[Leuselator]

Das sollte helfen:

Delphi-Quellcode:

procedure TForm_UserAnlegen.ListView1Click(Sender: TObject);
var
  i: integer;
begin
  i:=ListView1.Selected.Index;
  if i >= 0 then begin
    if ListView1.Items.Count>0 //wenn Count = 0 dann sind keine Items enthalten
    then begin
       Edit2.Text:=ListView1.Items[i].Caption;
       if ListView1.Items[i].SubItems.Count > 0 then begin
         if ListView1.Items[i].SubItems[0] = '1'
           then CheckBox2.Checked:=True
           else CheckBox2.Checked:=False;
       end else raise Exception.Create('Keine Subitems da!');
    end else raise Exception.Create('Keine Items da!');
  end else raise Exception.Create('Index kleiner 0!');
end;

Gruß