Сообщений в теме: 3

[GipsySh]

Написала вот такую процедуру:

Sub GetSupResolutions(iCamera, iCodec, strCodec, tb, lblResolution)
prevSep = aqString.ListSeparator
aqString.ListSeparator = ";"
' tb - task bar
for j=tb.wMin to tb.wMax
tb.wPosition = j
SupResolutions(iCamera, iCodec) = aqString.AddListItem(SupResolutions(iCamera, iCodec), lbl.WndCaption)
next
aqString.ListSeparator = prevSep
End Sub

Эта процедура формирует строку список в формате: a1;a2;a3;...aN;
Точнее, до недавнего времени формировала именно в таком виде. При добавлении нового элемента добавлялось сначала его значение, а после значения шел разделитель.

Но почему-то сейчас работа функции AddListItem изменилась: теперь разделитель добавляется ПЕРЕД значением элемента, т.е. формируется строка вида ;a1;a2;a3...;aN

Решила эту проблему путем явного задания позиции, в которую нужно добавить элемент:
...
SupResolutions(iCamera, iCodec) = aqString.AddListItem(SupResolutions(iCamera, iCodec), lblResolution.WndCaption, j-tb.wMin)
...

Но все равно интересно, в чем могла быть причина такого изменения в формировании строки? Не сталкивался ли кто-нибудь с подобным?

[QA*]

Может быть в начало списка добавляется пустой элемент?

[Dmitry N]

Здравствуйте.

Мне кажется, что-то с граничными значениями в tb: 'for j=tb.wMin to tb.wMax'. Попробуйте запостить значение этого tb в лог. Может поймёте где что не так.

for j=tb.wMin to tb.wMax
tb.wPosition = j
Log.Message VarToStr(j) & ": " & lbl.WndCaption

[GipsySh]

Может быть в начало списка добавляется пустой элемент?

Сначала тоже подумала, что пустой элемент, но после отладки решила, что все-таки наоборот добавляется, т.к. добавление получается так:
;a1
;a1;a2
;a1;a2;a3
...
Попробую граничные значения посмотреть. Спасибо!