Обработка текстовых данных, ошибка

[stalker1995s]

Здравия, столкнулся с проблемой, сам справиться не могу..
Программа, загружает данных из файла .smd Вершины, полигоны, их координаты..
Но все почти все данных, приходят в таком виде: 0.00000000000000E+0000
Хотя приходить должны в таком виде: -3.06128692626953E+0000
Т.е, каким то образом, программа записывает одни нули, вместо правильных значений.
Код каким я обрабатываю:

procedure TAnim.LoadModel(Filename: String);
var f:text;
    s:string;
    i,j:integer;
begin
assignFile(f,Filename);
reset(f);

repeat
 readln(f,s);
until s='nodes';

i:=0;
setlength(Link,i);

repeat
 readln(f,s);
 if s<>'end' then
  begin
   setlength(Link,i+1);
   Link[i]:=StrToInt(StringWordGet (s, '"', 3));
   inc(i);
  end;
until s='end';

repeat
 readln(f,s);
until s='time 0';

i:=0;
setlength(Time.Translation,i);
setlength(Time.Rotation,i);


repeat
 readln(f,s);
 if s<>'end' then
  begin
   setlength(Time.Translation,i+1);
   setlength(Time.Rotation,i+1);
   Time.Translation[i][0]:=strtofloatdef(StringWordGet(trim(s),' ',2),0);
   Time.Translation[i][1]:=strtofloatdef(StringWordGet(trim(s),' ',3),0);
   Time.Translation[i][2]:=strtofloatdef(StringWordGet(trim(s),' ',4),0);
   Time.Rotation[i][0]:=strtofloatdef(StringWordGet(trim(s),' ',5),0);
   Time.Rotation[i][1]:=strtofloatdef(StringWordGet(trim(s),' ',6),0);
   Time.Rotation[i][2]:=strtofloatdef(StringWordGet(trim(s),' ',7),0);
   inc(i);
  end;
until s='end';

repeat
 readln(f,s);
until s='triangles';

i:=0;
setlength(Poligon,i);

repeat
 readln(f,s);

 if s<>'end' then
  begin
   setlength(poligon,i+1);
   poligon[i].Texture:=s;
   for j:=0 to 2 do
    begin

     readln(f,s);
     Poligon[i].Top[j].Joint:= strToInt(StringWordGet(trim(s),' ',1));
     Poligon[i].Top[j].Coord[0]:= strtofloatdef(StringWordGet(trim(s),' ',2),0);
     Poligon[i].Top[j].Coord[1]:= strtofloatdef(StringWordGet(trim(s),' ',3),0);
     Poligon[i].Top[j].Coord[2]:= strtofloatdef(StringWordGet(trim(s),' ',4),0);
     Poligon[i].Top[j].Normal[0]:= strtofloatdef(StringWordGet(trim(s),' ',5),0);
     Poligon[i].Top[j].Normal[1]:= strtofloatdef(StringWordGet(trim(s),' ',6),0);
     Poligon[i].Top[j].Normal[2]:= strtofloatdef(StringWordGet(trim(s),' ',7),0);
     Poligon[i].Top[j].TexturCoord[0]:= strtofloatdef(StringWordGet(trim(s),' ',8),0);
     Poligon[i].Top[j].TexturCoord[1]:= strtofloatdef(StringWordGet(trim(s),' ',9),0);
    end;
   inc(i);
  end;
until s='end';

closeFile(f);
end;

Замечу, что обработка данных для Time.Translation и Time.Rotation выходит как надо, и данные на выходе правильные.
Так же после некоторых тестов, если убрать обработу

   Time.Translation[i][0]:=strtofloatdef(StringWordGet(trim(s),' ',2),0);
   Time.Translation[i][1]:=strtofloatdef(StringWordGet(trim(s),' ',3),0);
   Time.Translation[i][2]:=strtofloatdef(StringWordGet(trim(s),' ',4),0);
   Time.Rotation[i][0]:=strtofloatdef(StringWordGet(trim(s),' ',5),0);
   Time.Rotation[i][1]:=strtofloatdef(StringWordGet(trim(s),' ',6),0);
   Time.Rotation[i][2]:=strtofloatdef(StringWordGet(trim(s),' ',7),0);

То все данных, полигона, выходят правильно, почему же так, и что делать ?...
Так же, в программе до этого, все работало отлично, загружалось как надо.




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не надо использовать тег ЦИТАТА для оформления кода!

Не забывайте об этом!

Модератор.