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]

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

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