Вложенные записи (структуры record/end) в MP
Вопрос: Неужели MP не позволяет делать вложенные записи (record's)?
В приведённом ниже простейшем примере компиляция происходит без ошибок, эмулятор прекрасно стартует, но потом - MIDLet вылетает! (на отладочное Java-окно)
Полный выщелоченный пример:
program Records;
type
TPoint = record // Тип - точка
x,y : integer
end;
TColor = record // Тип - цвет
r,g,b : integer
end;
TColorPoint = record // Тип - цветная точка
Point : TPoint;
Color : TColor
end;
var
ArrOfColPnts : array [0..1] of TColorPoint; // Массив цветных точек
i : integer;
begin
{Очистка массива цветных точек, например}
for i := 0 to 1 do begin
ArrOfColPnts[i].Point.x := 0;
ArrOfColPnts[i].Point.y := 0;
ArrOfColPnts[i].Color.r := 0;
ArrOfColPnts[i].Color.g := 0;
ArrOfColPnts[i].Color.b := 0;
end;
{И просто Hello world }
drawText('Hello world!', 0, 0); repaint; delay(2000);
end.
Сталкивался ли кто нибудь с этим? Что это - баг? Или в стандарте языка MP это запрещено?
|