function THIListBox._arr_count;
var i:smallint;
begin
Result := 0;
for i := 0 to Control.Count-1 do
if Control.ItemSelected[i] then
inc(Result);
end;
Кому пришло в голову отбирать только выделенные пункты, получать их количество и подряд это количество потом выдавать, вне зависимости от выделенности. Хотя, описание к точке гласит недвухсмысленно об обратном
SelectArray=Хранит флаги выделения для каждого пункта списка
а не только для выделенных
------------ Дoбавленo в 01.31:
Исправлено
Поиск
Друзья
Администрация