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

EConvertError   Найти похожие ветки 

← →
San1   (2007-03-04 00:59) [0]

Уважаемые Мастера, помогите пожалуйста.
Через некоторое время работы, прогрмма стала выдавать следующую ошибку (сначала она работала нормально):

Project Glass.exe raised exception class EConvertError with message "0.0000000000000" is not a valid floating point value".

Происходит она в этой процедуре:

procedure VectorImage(h,dx,dy,dz:double;fname:string);
var DXF : DXFUnit;
   i,j : Word;
   v,n,a,b,x,y,z:double;
   f:TextFile;

begin
assignfile(f,fname);
rewrite(f);
DXF := DXFUnit.Create;
with DXF do begin
 LoadDXFFromFile("фрагмент2.dxf");

 if Var_Lines <> nil then
  for i := 0 to High(Var_Lines) do begin
   with Var_Lines[i] do begin
     a:=(End_Y+Start_Y)/(End_X+Start_X);
     b:=((End_Y+Start_Y)/(End_X+Start_X))*Start_X-Start_Y;
       x:=Start_X;
       y:=Start_Y;
       while x>End_X do
       begin
           x:=x+dx*cos(arctan(a));
           y:=a*j+b;
           writeln(f,x," ",y," ","0");
       end;

       end;

    end;
  end;

DXF.Free;
CloseFile(f);
end;

---

← →
Германн ©   (2007-03-04 01:42) [1]

> San1   (04.03.07 00:59)

Во-первых. Что есть DXFUnit? (Просто любопытно).
Во-вторых - DecimalSeparator.
В-третьих - Региональные настройки.

---

← →
San1   (2007-03-04 01:59) [2]

>Германн ©

Спасибо!
Указал DecimalSeparator := "." и заработало.

DXFUnit модуль для работы с файлами векторной графики (в частности *.dxf)

---

← →
Германн ©   (2007-03-04 02:10) [3]

> San1   (04.03.07 01:59) [2]
>
> >Германн ©
>
> Спасибо!
> Указал DecimalSeparator := "." и заработало.
>

Тогда советую ещё прочитать про TApplication.UpdateFormatSettings.

---

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

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



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