|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
удалить строки в которых меньше 3ех символов из листбокса
Как удалить строки в которых меньше 4ех символов из листбокса ?
Подскажите пожалуйста Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#2
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := ListBox1.Items.Count-1 downto 0 do begin if Length(ListBox1.Items[i]) < 4 then ListBox1.Items.Delete(i); end; end; |