help nodig met FreePascal (Lazarus) "TLists"

[Biirra]

ik probeer 2 TList in Lazarus met elkaar te verbinden.
de bedoeling is dat ik van de Linker TList de geselecteerde dingen met een Button naar de Rechter TList verplaats.

ik heb al bepaalde dingen geprobeert, maar ik zal het wel helemaal verkeerd aanpakken.
dit heb ik al geprobeerd:

procedure TForm1.Button1Click(Sender: TObject);
begin
listBox2.GetSelectedText;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox2.Items := ListBox1.Selected[];
end;

zijn 2 van de vele dingen die ik geprobeerd heb,

als iemand me wil helpen ?? !! een duwtje in de goede richting is ook goed, volges mij ben ik gewoon een bundeltje code vergeten. maarjah

alvast bedankt,

 

[peter200]

Hallo Biirra,

Probeer dit eens:

procedure procedure TForm1.Button1Click(Sender: TObject);
begin
     ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
     ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

Mvg,
Peter

 

[Biirra]

dankje

dat was inderdaad wat ik zogt,
maar met multi selectie zend hij nog steeds maar 1 over. kan he ook met meerdere tegelijk ?

 

[peter200]

Hallo Biirra,

Probeer dit eens bij multiselect:

procedure procedure TForm1.Button1Click(Sender: TObject);
    var i:Integer;
begin

i := 0;
while i < ListBox1.Items.Count do
  begin
    if ListBox1.Selected[i] then
    begin
      ListBox2.Items.Add(ListBox1.Items[i]);
      ListBox1.Items.Delete(i);
    end
    else
      inc(i);
  end;
end;

Mvg,
Peter

 

[Biirra]

dankje dat was zo goed als wat ik zogt inderdaad
verder gaat het wss wel lukken anders hoor je het nog wel