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

Вниз

Application.ProcessMessages - абстрактная ошибка   Найти похожие ветки 

 
Juice ©   (2005-07-06 18:45) [0]

Очень странная ошибка вылезла. Вот такой код:


ProcThread.Resume();
 while (not ProcThread.PTerminated) do
      Application.ProcessMessages();


На вызове ProcessMessages вываливается ошибка : EAbstractError with message "Abstract Error". Я глянул реализацию ProcessMessages - никакая она не абстрактная. Может быть имеет значение то, что код этот содержится в методе класса, который в свою очередь описан в отдельно-добавленом мною юните, и чтобы Application стал известен я добавил в uses этого модуля Forms.


 
Juice ©   (2005-07-06 19:05) [1]

Даже так:
ProcThread := TProcThread(TProcThread.Create(true));
 ProcThread.ProcFunc := Self.ProcessXLSFileCore;
 ProcThread.sql := sql;
 ProcThread.tr := tr;
 ProcThread.FileName := FileName;
 ProcThread.FreeOnTerminate := false;
 Application.ProcessMessages();  //Тут нет ошибки
 ProcThread.Resume();
 Application.ProcessMessages();  //Тут она уже есть !!!
 while (not ProcThread.PTerminated) do
       Application.ProcessMessages();
 Result := ProcThread.TResult;
 ProcThread.Free();


 
Juice ©   (2005-07-06 19:09) [2]

Блин, страшная штука эти пробелы в знаниях. Все было в том что я обьявил procedure Execute() без директивы override   :)


 
jack128 ©   (2005-07-06 19:18) [3]

Чаще Warning"и читай - здоровее будешь..



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

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

Наверх




Память: 0.47 MB
Время: 0.046 c
14-1120253617
паша_голубь :-)
2005-07-02 01:33
2005.07.25
Благодарность


1-1120587813
SpyBoy
2005-07-05 22:23
2005.07.25
как программно нажать клавишу?


1-1120459480
DimonNew
2005-07-04 10:44
2005.07.25
TListBox and Columns


1-1120629244
max3
2005-07-06 09:54
2005.07.25
Организация цикла


4-1117344959
NikNet
2005-05-29 09:35
2005.07.25
Как получить адресс строкий? Const MyStr:String = Hello! ;