Seltsames Problem bei TListView Checkboxen

[stockholm]

Zitat von DeddyH:

Sieht eigentlich OK aus. Zeigst Du uns mal die Methode RefreshBooks?

Das dachte ich eigentlich auch

Delphi-Quellcode:

procedure TfrmMain.refreshBooks(Sender: TObject);
var
 i: integer;
 s: string;
 ANode : IXMLNode;
begin

 //lstBooks.Enabled := false;

 s := '';

 for i := 0 to lstBooks.Items.Count-1 do
 if lstBooks.Items[i].Checked then
 s := s + lstBooks.Items[i].SubItems[1]+'|';

 delete(s, length(s), 1);

 try

  s := httpGET(httpCli, REQUEST_URL);

  XMLDoc.LoadFromXML(s);
  XMLDoc.Active := true;

  lstBookItems.Clear;

  ANode := XMLDoc.DocumentElement.ChildNodes.First;

  while Assigned(ANode) do
  begin

    with lstBookItems.Items.Add do
     begin
      imageindex := 57;
      caption := ANode.ChildNodes['forename'].Text;
      subitems.Add(ANode.ChildNodes['surename'].Text);
      subitems.Add(ANode.ChildNodes['number'].Text);
      subitems.Add(ANode.ChildNodes['id'].Text);
      subitems.Add(ANode.ChildNodes['book'].Text);
     end;

    ANode := ANode.NextSibling;
  end;



 except
   // catch me
 end;

end;

Sollte damit nichts zu tun haben?