| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ошибка priveleged instruction [D7, Paradox]
Lexaz2005 © (2005-09-07 01:40:00)Вот такой у меня код:
[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".... как её избежать?
Anatoly Podgoretsky (2005-09-07 09:09:00) [1]Вот это очень нравится DataSet.Next такая нехилая рекурсия.
Digitman (2005-09-07 08:39:00) [2]
> решил сделать цикл по всем записям
нельзя так делать в обработчике этого события.
в справке есть пример обработки
> if DataSet.RecordCount<1 then exit
это - очевидная несуразность.
раз событие возникло, значит в НД есть как минимум одна запись.
> if DB.Filtered=false then exit;
это - еще одна очевидная несуразность.
событие это никогда не возникнет, если Filtered=false
> она возникает только один раз
значит в НД всего одна запись
| |
