Скачать: CL | DM;

Вопрос по чеклисту   Найти похожие ветки 

← →
IntruderLab   (2008-03-19 16:04) [0]

Вобщем-то сабж, есть такая функция
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) [1]

Вопрос снят, из-за идиотизма автора %-(
ckl.Checked[iSel] := True;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.975 c