ошибка priveleged instruction

← →
Lexaz2005 (2005-09-07 01:40) [0]

Вот такой у меня код:
[CODE=pas]procedure TForm.DBFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var i:integer;
begin
//DB = Table
if DB.Filtered=false then exit;
if DataSet.RecordCount<1 then exit;

DataSet.First;
for i:=0 to DataSet.RecordCount-1 do //здесь возникает ошибка
begin

Memo.Lines.Add(DataSet.FieldByName("NoteTime").AsString);
DataSet.Next;

end;
end;[/CODE]
Применяю фильтр....по идее....эта процедура должна возникать каждый раз при обработке фильтром новой записи......а она возникает только один раз...сколько бы записей не было, подходящих критерию.....поэтому решил сделать цикл по всем записям....и вот где помечено...возникает ошибка "priveleged instruction".... как её избежать?

← →
Digitman © (2005-09-07 08:39) [1]

> решил сделать цикл по всем записям

нельзя так делать в обработчике этого события.

в справке есть пример обработки

> if DataSet.RecordCount<1 then exit

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

> if DB.Filtered=false then exit;

это - еще одна очевидная несуразность.
событие это никогда не возникнет, если Filtered=false

> она возникает только один раз

значит в НД всего одна запись

Вот это очень нравится DataSet.Next такая нехилая рекурсия.

ошибка priveleged instruction Найти похожие ветки