CheckLitBox - dodać jak zaznaczone ale usunąć dodane gdy odhachaczone

0

Bardzo przepraszam za nowy temat ale to bardzo potrzebne na wczoraj CheckListbox w zdarzeniu OnClickCheck dodaje coś do LIstBoxa w zależności od pozycji którą zaznaczam. Poniżej działa tak, że czy odhaczamy czy nie i tak się dodaje. Ale to nie wszystko jak usunąć to co dodaliśmy zaznaczając wcześniej daną pozycję gdy ją odhaczymy. Nie przejmujcie się wyświetlaniem xml i RadioGroup to działa właściwie. Niby proste a jednak nie tak bardzo

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);var
s :string;
begin
s := CheckListBox1.Items[CheckListBox1.ItemIndex];
 
 case radioGroup1.ItemIndex of
  0: Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[s].ChildValues['imie']);
  1: Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[s].ChildValues['nazwisko']);
  2: begin
    Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[s].ChildValues['imie']);
    Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[s].ChildValues['nazwisko']);
    end;
 end;
end;
0

Już Ci przecież pisałem, co zwraca ItemIndex z CheckListBox i, że tu masz problem. A Ty zakładasz nowy wątek :|

1 użytkowników online, w tym zalogowanych: 0, gości: 1