Автору 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 больше увлекло.

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