TListBox
Добавлено: 02 сен 2004, 23:19
Как из енного количества идентичных записей в TListBox удалить лишнее и оставить только одну :shock:
Код: Выделить всё
ЛистБокс list;
ЗаписьЛистБокса item;
СтекИзСтрок stack;
Цикл по всем item в list
{
Если (stack.Найти(item.ПолучитьТекст())
{
list.Удалить(item);
}
Иначе
{
stack.Добавить(item.ПолучитьТекст());
}
}
Romeo писал(а):Код: Выделить всё
ЛистБокс list] На каком языке хочешь, на таком и реализовывай :) [/quote] Пасиба, попробую