Ошибка

← →
JokerT (2003-09-04 16:01) [0]

Мастера, вопрос!

В Run-Time появляется ошибка: "Floating point overflow".
Не могу отследить где и почему.
Везде понаставлял "try except end" - не помогает :((

Может посоветуете как побороть.

← →
Skier © (2003-09-04 16:02) [1]

А код-то покажешь ?

← →
JokerT (2003-09-04 16:05) [2]

function TfrmMain.FillToExcel: boolean;
var s,sh: string;
begin
Result:=False;
s:=GetPathToBody;
sh:=s+"\Doc\"+ledtShablon.Text;
if FileExists(sh) then
try
xlRep.XLSTemplate:=sh;
xlRep.ParamByName["BegD"].Value:=dtBeg.Date;
xlRep.ParamByName["EndD"].Value:=dtEnd.Date;
if cbAFS.Checked then FormingShablon;
xlRep.DataSources.Items[0].DataSet:=DepMain.qr;

//Подозреваю, что здесь.
xlRep.ReportTo("",s+"\Result\"+ledtTempRes.Text);

SetStatus1("Excel-файл сформовано!",clGreen);
sbRun.Down:=False;
Result:=True;
except
MessageDlg("Ошибка при выгрузке в Excel"+#13#10+
s+"\Result\"+ledtTempRes.Text,mtInformation,[mbOk],0);
end
else ShowMessage("Нет файла-шаблона: "+#13#10+sh);
end;

← →
Reindeer Moss Eater © (2003-09-04 16:07) [3]

Это не тот код

← →
Alibaba © (2003-09-04 16:12) [4]

>Reindeer Moss Eater © (04.09.03 16:07) [3]

Интерестно, с чем ты сравнил? :)

← →
JokerT (2003-09-04 16:21) [5]

А вот в общем случае, если я заключил код с потенциальной ошибкой в блок "try except end" - она же (ошибка) не может проскочить мимо обработчика исключительных ситуаций?

← →
ZEE © (2003-09-04 16:23) [6]

>она же (ошибка) не может проскочить мимо обработчика исключительных ситуаций
это тебе так кажется - почитай тут:
http://delphimaster.net/view/1-1062674282/

← →
Reindeer Moss Eater © (2003-09-04 16:23) [7]

Это значит, что ошибка "Floating point overflow" обязана не приведенному в [2] коду

← →
mrcat © (2003-09-04 16:23) [8]

>Alibaba © (04.09.03 16:12)

с тем, что в противном случае получили бы:

MessageDlg("Ошибка при выгрузке в Excel"+#13#10+
s+"\Result\"+ledtTempRes.Text,mtInformation,[mbOk],0);

>JokerT (04.09.03 16:21)
Ошибка не тут.

← →
Skier © (2003-09-04 16:25) [9]

>mrcat © (04.09.03 16:23)
Обрати внимание на то что автор работает с Excel

← →
JokerT (2003-09-04 16:29) [10]

>Skier © (04.09.03 16:25) [9]

Скорее всего это что-то с Excel.

← →
mrcat © (2003-09-04 16:31) [11]

Skier © (04.09.03 16:25)

Вижу, виноват, признаю :)

← →
Skier © (2003-09-04 16:31) [12]

>JokerT (04.09.03 16:29)

Проблема вполне может быть здесь :

xlRep.ParamByName["BegD"].Value:=dtBeg.Date;
или
xlRep.ParamByName["EndD"].Value:=dtEnd.Date;

...судя по сообщению об ошибке...

← →
Prototip (2003-09-04 16:35) [13]

Если работать с Excel напрямую через OLE - необходимо самостоятельно следить за существующими екземплярами Excel и еще отслеживать кучу параметров.

Если организовать работу с Excel через какие-то компоненты - вся функциональность зависит от реализации компонента.

Хотя мне тоже непонятно
JokerT (04.09.03 16:21) [5]

А вот в общем случае, если я заключил код с потенциальной ошибкой в блок "try except end" - она же (ошибка) не может проскочить мимо обработчика исключительных ситуаций?

может ошибка проскочить или нет

Обработчик ошибок необходимо писать в компоненте, который работает с Excel...

← →
JokerT (2003-09-04 16:37) [14]

>Skier © (04.09.03 16:31) [12]

Не не здесь. Я коментарил эти строки. Все равно ошибка.

А пошагово пробовал?

← →
JokerT (2003-09-04 16:39) [16]

>Alibaba © (04.09.03 16:37) [15]

Дык, пробовал.
Иногда работает нормально.
А иногда на строке
xlRep.ReportTo("",s+"\Result\"+ledtTempRes.Text);
зависает Delphi.

>JokerT (04.09.03 16:39)
Правильный ли результат даёт : s+"\Result\"+ledtTempRes.Text ?

>А иногда ... зависает Delphi.
я в последнее время из под Дельфи проекты не запускаю (особенно с базами, OLE и еще со всякими там "тяжелыми" вещами)... пусть если умирают - так хоть Дельфи за собой не тянут...

← →
JokerT (2003-09-04 16:46) [19]

>Skier © (04.09.03 16:40) [17]

Когда прохожу пошагово -
s+"\Result\"+ledtTempRes.Text
нормальный путь к файлу.

100% проблемы с Excel.
Вернее с компонентом, который работает с Excel.

>JokerT (04.09.03 16:46) [19]

Можно предложить тебе разгрести исходники этого компонента...
Но, я думаю, это жестоко :))

Ошибка Найти похожие ветки