Сразу извеняюсь не знаю как лучше тему обозвать.

Код такой

Код

procedure TInsert.Button3Click(Sender: TObject); var i : Integer; begin with Table2 do begin Filter := 'id =' + inttostr(Table1.FieldByName('id').AsInteger); Filtered := true; CheckListBox1.Clear; for i := 1 to RecordCount do begin        Recno := i;        if FieldByName('id').AsInteger = Table1.FieldByName('id').AsInteger then begin                CheckListBox1.Items.Add(FieldByName('Answer').AsString);                if FieldByName('Rightness').AsBoolean then                        CheckListBox1.Checked[i] := true               end; end; end;

Т.е. есть таблица со множеством значений из нее надо в CheckListBox запихнуть записи, удовлетворяющие условиюи и те записи, что в таблице помечены как true отметить в CheckListBox cheked.
Но проблема в том, что не смотря на то, что установлен фильтр цикл бежит по всему набору данных и "i" принимает значение выходящее за границы того, что занесено в CheckListBox1.Items. Как быть?

Код

for i := 0 to RecordCount - 1 do

прошу прощения, со своим кодом разобрался сам, у меня не срабатывал фильтр. После того как перенес все в условие фильтрации в OnFilterRecord все заработало. Хотя продолжает интересовать вопрос, а можно ли все это провернуть без фильтра?

<Spawn> твое предложение ничего не изменит, т.к. "i" бегает по всему набору данных и минус один ничего не меняет (оно может быть ровно 100, при том что в CheckListBox1.Items могло быть занесено всего 5 запесей, поэтому код: CheckListBox1.Checked[100] := true и вызывает ошибку).

Не может быть. Ты добавляешь новое значение в CheckListBox1:

Код

CheckListBox1.Items.Add(FieldByName('Answer').AsString);

И для доступа к его свойству Checked необходимо использовать значение 0(в случае если это первый элемент списка) или CheckListBox1.Items.Count - 1.

В твоем же примере, ты этого не делаешь, т.е. при добавлении новых значений, ты будешь пытаться получить доступ к несуществующим, что приведет к выходу за границы массива, так как отсчет начинается с 0, а не с 1 как сделал ты. Единственное из за чего может не произойти ошибки - если в Списке уже был хотя бы 1 элемент.

а учитывая, что у тебя идет эта проверка:

Код

if FieldByName('id').AsInteger = Table1.FieldByName('id').AsInteger then begin

то тут тем более ошибка.
К примеру на первой итерации цикла это условие не выполнилось, на второй прошло и оказалось, что добавляемое поле имеет тип Boolean, тогда будет произведена попытка изменить свойство Checked по индексу 2, хотя значений в списке будет всего 1 и получить доступ к нему можно будет только по значению 1-1 = 0.

Правильным решением было бы завести переменную-счетчик, которую нужно было бы увеличивать на 1 при каждом добавлении значения в список.

Ничего подобного. Ошибка возникала из-за того, что цикл бегал не по удовлетворяющим условию попадания в CheckListBox1.Items записям, а по всему набору данных. Из-за этого "i" принимало значение отличное от значения CheckListBox1.ItemIndex-1. Поэтому надо было либо сделать набор записей в таблице идентичными с набором в CheckListBox1 (что я и сделал), либо... вот я и не знаю как.

Проверка

Код

if FieldByName('id').AsInteger = Table1.FieldByName('id').AsInteger then

была лишней. просто я много перепробовал прежде чем выкладывать на форум и перед выкладыванием не исправил, точно также как и

Код

CheckListBox1.Checked[i] := true

правильно, разумеется

Код

CheckListBox1.Checked[i-1] := true

А итерация цикла здесь не причем.

Можно так же создать массив, заполнить его в цикле, а потом из него заполнить CheckListBox1, тогда значения индекса массива будет всегда на единицу больше чем индекс CheckListBox1, а это легко учесть.

Cashey По моему ты не совсем понял, что я тебе сказал. Твой пример

Код

CheckListBox1.Checked[i-1] := true

это тот же самое что брать цикл от 0 до RecordCount - 1. Короче больше я обьяснять не собираюсь, если ты ни как не можешь понять.

Это сообщение отредактировал(а) <Spawn> - 8.2.2004, 06:01

<Spawn> это ты не понял. Вопрос звучит - можно ли это сделать без предварительной фильтрации, что бы цикл бегал не по всем записям, а только по удовлетворяющим значению.

Насчет фильтра могу сказать: если таблица отфильтрована, то использовать RecNo нельзя (хотя может это не ко всем типам таблиц относится?). Лучше перед циклом сделать Table2.First; а в цикле делать Table2.Next, т.к. RecNo показывает физический номер записи...
Насчет Checked[i] можно сделать так:
CheckListBox1.Checked[CheckBox1.Items.Count-1] := true

Цитата

можно ли это сделать без предварительной фильтрации, что бы цикл бегал не по всем записям, а только по удовлетворяющим значению

А чем фильтрация не нравится ? Но можно и без неё:
FindKey - FindFirst - FindNext, только надо чтобы был активный индекс по полю id...

Можно, используй SQL запрос.