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)

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

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

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