Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по чеклисту [D7, Win2k, WinXP]

IntruderLab © (2008-03-19 16:04:00)
Вобщем-то сабж, есть такая функция
procedure StrToCKList(s:String;ckl:TCheckListBox);StdCall;
var iSel, i : Integer; sl:TStringList;
begin
sl := TStringList.Create;
sl.Delimiter := ',';
sl.CommaText := s;
for i := 0 to sl.Count-1 do
begin
ckl.SearchExactString('['+sl.Strings[i]+']');
iSel := ckl.Items.IndexOf(ckl.Items.Strings[i]);
ckl.Checked[iSel];
end;
ckl.Refresh;
sl.Free;
end;

Суть, в реестре храниться строка с id из БД через запятую, для выборки, я считываю их и пихаю в функцию.
До момента цикла
for i := 0 to sl.Count-1 do
begin
ckl.SearchExactString('['+sl.Strings[i]+']');
iSel := ckl.Items.IndexOf(ckl.Items.Strings[i]);
ckl.Checked[iSel];
end;
все зер гуд, внутри цикла
ckl.SearchExactString('['+sl.Strings[i]+']');
iSel := ckl.Items.IndexOf(ckl.Items.Strings[i]);
отрабатывают нормально, но ckl.Checked[iSel]; не срабатывает, галочки не проставляются, почему?

IntruderLab (2008-03-19 16:08:00) [1]
Вопрос снят, из-за идиотизма автора %-(
ckl.Checked[iSel] := True;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »