Нужно из Listbox1
вырезать строки и вставить в Listbox2
. Не получается реализовать цикл while
.
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
i:={что-то вставить};
while {что то вставить} do
if ListBox1.Selected[i] then
begin
ListBox2.Items.add(ListBox1.Items[i]);
ListBox1.Items.Delete(i);
end;
end;
Нужен счетчик проверять. Как реализовать?