Доброго всем времени суток, как говорится.
Столкнулся с элементарной проблемой: не могу проверить равна ли ссылка (pointer)
ничему. Пишу так:
Код:
var SelectObject : ^TGLBaseSceneObject;
...
if (SelectObject<>nil) then BEGIN
Position_X_Edit.Text:=(CurrToStr(SelectObject^.Position.X));
Position_Y_Edit.Text:=(CurrToStr(SelectObject^.Position.Y));
Position_Z_Edit.Text:=(CurrToStr(SelectObject^.Position.Z));
Rotation_Pich_Edit.Text:=(CurrToStr(SelectObject^.PitchAngle));
Rotation_Roll_Edit.Text:=(CurrToStr(SelectObject^.RollAngle));
Rotation_Turn_Edit.Text:=(CurrToStr(SelectObject^.TurnAngle));
END
Что не так делаю? Спасибо за внимание.