Delphi

Вопрос

На форме два ListBox'а, в первом выделено несколько строк. Как нажатием кнопки (Button1) на форме перенести эти выделенные строки в другой ListBox?

Ответ

ListBox1 — откуда переносить

ListBox2 — куда переносить

Процедура указана для кнопки.

procedure TForm1.Button1Click(Sender: TObject); var i, i1: integer; begin for i:=0 to listbox1.Items.Count-1 do begin if ListBox1.Selected[i] then begin ListBox2.Items.Add(ListBox1.Items.Strings[i]); end; end; i:=ListBox1.Items.Count-1; i1:=0; while i1<=i do begin if ListBox1.Selected[i1] then begin ListBox1.Items.Delete(i1); i:=listBox1.Items.Count-1; i1:=0; continue; end; inc(i1); end; end;

Из конференции Expert_FAQ