Премахване на редове падащ списък

Sluhay повече като този
процедура TForm1.Button1Click (Sender: TObject);
започвам
listbox1.Items.Delete (0); // 0 ред (първи tobish)
приключи;

Публикувано от Василий Jakunin

Публикувано от Иля Кудрявцев
процедура TForm1.Button1Click (Sender: TObject);
започвам
listbox1.DeleteSelected;
приключи;

Е, може би в някои версии на Delphi и това ще се състои, но не го направих
минава, Delphi 5. Фактът, че аз трябваше да изтриете определен

Публикувано от Василий Jakunin
линия от ListBox-а. Веднъж видях тази процедура, но

Публикувано от Василий Jakunin
Var I: цяло число;
започвам
защото: = 0 до ListBox.Items.Count -1 задачи
[. ]
ListBox.Items.Delete (I);
приключи;
Това е нещо подобно. но тъй като аз не мога да си спомня, а аз имам
изтриете определена линия.
С уважение, Базил

Публикувано от Василий Jakunin
започвам
защото: = 0 до ListBox.Items.Count -1 задачи
[. ]
ListBox.Items.Delete (I);
приключи;
Това е нещо подобно. но тъй като аз не мога да си спомня, а аз имам
изтриете определена линия.

Публикувано от Василий Jakunin
изтриете определена линия.

Благодаря ви много, това е точно това, от което имате нужда!

Андрю V. Fionik

Е, може би в някои версии на Delphi и това ще се състои, но не го направих
минава, Delphi 5. Фактът, че аз трябваше да изтриете определен ред. А
а не само една линия от ListBox-а. Веднъж видях тази процедура, но
Var I: цяло число;
започвам
защото: = 0 до ListBox.Items.Count -1 задачи
[. ]
ListBox.Items.Delete (I);
приключи;
Това е нещо подобно. но тъй като аз не мога да си спомня, а аз имам
изтриете определена линия.

Необходимо да се отстранят от края на списъка. В противен случай naudalyaesh погрешно.

за I: = ListBox.Items.Count-1 Downto 0 направи
започвам
ако ListBox.Selected [I] след ListBox.Items.Delete (I);
приключи;