RadioGroup и ListBox (Delphi)

[rita3]

Всем здравствуйте! Помогите, пожалуйста, решить задачу!!! У меня на форме есть RadioGroup с 5 Items и ListBox1 с 30 Items, нужно, чтоб при выборе 1-ой кнопки из RadioGroup 4-ая строка в ListBox исчезала, и на ее место поднималась 5-ая строка, на место 5-ой строки поднималась 6-ая строка, и т.д., а если выбрана, допустим, 3 кнопка из RadioGroup, то в ListBox исчезала 20-ая и 21-ая строки и на их места поднимались 22 и 23 соответственно. Буду безмерно благодарна!

[vovk]

мм удалить то легко ListBox1.Items.Delete(номер строки); //не забываем отсчёт с 0
после удаления строки смещаются сами
только вот чтото мне подсказывает, что не совсем удалить хотелось..
может раскажите поподробнее куда они должны "исчезнуть", и планируется ли их "возвращение"

[rita3]

Да, Вы правы, их не насовсем нужно удалять, они должны возвращаться при выборе другой кнопки RadioGroup. Даже не знаю куда они могут "исчезнуть", нужно, чтобы они были невидимыми или не высвечивались в списке, или временно удалялись из списка.

[Terran]

Что касается удаления:

Procedure TForm1.RadioGroup1Click(Sender: TObject);
Begin
Case RadioGroup1.ItemIndex Of
0: ListBox1.Items.Delete(3);
2:
Begin
ListBox1.Items.Delete(20);
ListBox1.Items.Delete(19);
End;
End;
End;

Не забывайте, что при удалении строк нумерация изменяется!

Да, Вы правы, их не насовсем нужно удалять, они должны возвращаться при выборе другой кнопки RadioGroup. Даже не знаю куда они могут "исчезнуть", нужно, чтобы они были невидимыми или не высвечивались в списке, или временно удалялись из списка.

Записывайте их в переменную (К примеру типа TStringList) и потом считывайте назад.
Чтобы вставить строку назад используйте процедуру Insert. К примеру:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ListBox1.Items.Insert(3,'Строка');
End;