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

Автору dceDemo.   Найти похожие ветки 

← →
nikitoz ©   (2005-05-10 13:51) [0]

Сталкнулся с такой проблемой. Обьект не грузится , говорит что
[Error] Ping.pas(405): Incompatible types: "TGLCoordinatesStyle" and "TECColliderShape"

procedure SetAsString(coord : TGLCoordinates; s : string);
 var
   s1, s2 : string;
   i : Integer;
   Ar1 : array [0..3] of Single;
 begin
   for i := 0 to 3 do Ar1[i] := 0;
   s1 := Copy(s, 0, Pos(")", s) -1);
   s1 := Copy(s1, Pos("(", s1) +1, High(Integer)) +";";
   i := 0;
   while (Pos(";", s1) > 0) do begin
     s2 := Copy(s1, 0, Pos(";", s1) -1);
     case i of
       0: Ar1[0] := StrToFloat(s2);
       1: Ar1[1] := StrToFloat(s2);
       2: Ar1[2] := StrToFloat(s2);
       3: Ar1[3] := StrToFloat(s2);
     end;
     s1 := Copy(s1, Pos(";", s1) +1, High(Integer));
     Inc(i);
  end;
if coord.Style in [csPoint]  then coord.SetPoint( Ar1[0], Ar1[1], Ar1[2]);
if coord.Style in [csVector] then coord.SetVector(Ar1[0], Ar1[1], Ar1[2]);  
 end;

И указывает на сторчку:
if coord.Style in [csPoint]  then coord.SetPoint( Ar1[0], Ar1[1], Ar1[2]);

---

← →
От автора   (2005-05-11 04:49) [1]

> nikitoz ©   (10.05.05 13:51)  

Дело в том, что DCE переделали. Вернее сделали вторую версию. Где "TGLCoordinatesStyle" заменили на "TECColliderShape". И возможно поэтому и демка может глючить или не работать. Надо бы её переписать, да как-то ODE больше увлекло.

---

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

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



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