Показать сообщение отдельно
Старый 20.09.2010, 20:21   #6
General
AnyKey`щик
 
Регистрация: 20.09.2010
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Что-то я тут такое намутил... Зверское... Не обижайтесь, но по другому это не назвать.

Вижу, обсуждается Internal error #015, задам и свой вопрос по этой ошибке. Экспериментирую с MidletPascl'ем, программу с использованием чистых переменных удалось сделать, а вот только хочу с записями работать, как получается что-то странное.

Создаю запись типа TVS (самолёт это будет) и процедуру того, как этот самолёт будет смещаться при шаге времени dt
program Udaff;

type
TVS=record
 rx:real;
 ry:real;
 c:real;
 v:real;
end;

var VS1:TVS;

procedure TVSStep(dt:double);
var vx:real;
vy:real;
begin
   vx:=VS1.v*cos(VS1.c);
   vy:=VS1.v*sin(VS1.c);
   VS1.rx:=VS1.rx+vx*dt;
   VS1.ry:=VS1.ry+vy*dt;
end;

begin

end.
При компиляции выдаются сообщения:
> using generated record R_0.class
> Fatal error: Internal error #015

и ERROR

Если закомментировать процедуру TVSStep, то компилируется нормально.

Объясните, пожалуйста, в чём тут дело? Версия IDE 3.1
(Offline)
 
Ответить с цитированием