Автору dceDemo. [GLScene]
nikitoz © (2005-05-10 13:51:00)
Сталкнулся с такой проблемой. Обьект не грузится , говорит что
[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:00) [1]
> nikitoz © (10.05.05 13:51)
Дело в том, что DCE переделали. Вернее сделали вторую версию.
Где 'TGLCoordinatesStyle' заменили на 'TECColliderShape'. И
возможно поэтому и демка может глючить или не работать. Надо бы её
переписать, да как-то ODE больше увлекло.
Наверх 
ЧАТ |
Орешник |
|
