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

Вниз

Extended в TThread и его деление...   Найти похожие ветки 

← →
Василий К.   (2008-01-24 09:25) [0]

Коллеги!

Помогите решить вопрос:

Почему при попытке внутри потоковой процедуры TThread.Execute произвести деление друг на друга двух Extended чисел этот поток вышибает? При этом +,-,* операции выполняются совершенно нормально...

Или подскажите решение для определения "estimated/elapsed" времени чтения файла (тысячи мегабайт) типа "Осталось: 1:00:10"

Спасибо...

---

← →
Palladin ©   (2008-01-24 09:28) [1]

Ошибка в 17 строке

---

← →
Василий К.   (2008-01-24 09:31) [2]

if Assigned(WorkStream) then begin
     wSize := WorkStream.Size; wPos := WorkStream.Position;
     wTTF := wSize-wPos;
     TimeLeft := wTTF-TimeLeft;
   end else begin
     TimeLeft := 0;
   end;

где WorkStream - TFileStream
wSize, wPos, wTTF, TimeLeft: Extended;

так вот если в TimeLeft := wTTF-TimeLeft; поставить знак деления, вышибает..

---

← →
Palladin ©   (2008-01-24 09:31) [3]

ага... подика еще и по EDivByZero...

---

← →
Василий К.   (2008-01-24 09:34) [4]

Спасибо, разобрался сам...

---

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

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

Наверх

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