Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

ошибка 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


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


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


 
Anatoly Podgoretsky ©   (2005-09-07 09:09) [2]

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



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

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
9-1117733233
.cpp
2005-06-02 21:27
2005.10.16
Волшебная точка


1-1127790985
HelpMy
2005-09-27 07:16
2005.10.16
Service &amp; DLL


14-1127141196
Zeqfreed
2005-09-19 18:46
2005.10.16
Блок питания


14-1127506275
Goga
2005-09-24 00:11
2005.10.16
Макрос


3-1125669985
jeka_t
2005-09-02 18:06
2005.10.16
Как в запросе указать условие отбора по дате с временем...