Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c