| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Extended в TThread и его деление... [WinXP]
Василий К. © (2008-01-24 09:25:00)Коллеги!
Помогите решить вопрос:
Почему при попытке внутри потоковой процедуры TThread.Execute произвести деление друг на друга двух Extended чисел этот поток вышибает? При этом +,-,* операции выполняются совершенно нормально...
Или подскажите решение для определения "estimated/elapsed" времени чтения файла (тысячи мегабайт) типа "Осталось: 1:00:10"
Спасибо...
Василий К. (2008-01-24 09:34:00) [1]Спасибо, разобрался сам...
Василий К. (2008-01-24 09:31:00) [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:00) [3]ага... подика еще и по EDivByZero...
Palladin (2008-01-24 09:28:00) [4]Ошибка в 17 строке
| |
