работа со списками listbox(delphi)

[KaZaaM]

дано два листбокса, в первом несколько строк, есть два баттона, нужно чтобы одна кнопка переносила одну выбранную строку в другой листбокс, а вторая кнопка переносила выбранные строки

[Gerzs]

ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex])

[mihali4]

Хэлпом пользоваться жуть как сложно?

CopySelection method
Copies the selected items to another list-type control

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex<>-1 then
 ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do
 if ListBox1.Selected[i] then ListBox2.Items.Add(ListBox1.Items[i])
end;

Скачайте книгу 100 компонентов и не будет больше таких вопросов

[KaZaaM]

mihali4, если честно вообще не понял о чем ты
SERG1980, спасибо огромное

[mihali4]

Сообщение от KaZaaM

mihali4, если честно вообще не понял о чем ты

Что непонятного?
У листбокса есть указанная мной функция для копирования выбранных строк в другой листбокс...
Хоть одну, хоть сотню - сколько выберешь...
Описание функции, как обычно, доступно по F1.

[KaZaaM]

я не понял о каком ты описании, я сдал уже задачку, всем спасибо

ПС: тока процедуру переноса множества строк надо было через while, тк там еще надо было удалить перенесенные из первого листбокса