| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

EConvertError [D7, XP]

San1 ©   (2007-03-04 00:59:00) 

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

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 02:10:00) [1]

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

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

---

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

>Германн ©

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

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

---

Германн   (2007-03-04 01:42:00) [3]

> San1   (04.03.07 00:59)

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

---

Наверх