forum.boolean.name - Ошибка. E202. Помогите!

forum.boolean.name (http://forum.boolean.name/index.php)

- Прочие вопросы (http://forum.boolean.name/forumdisplay.php?f=50)

- - Ошибка. E202. Помогите! (http://forum.boolean.name/showthread.php?t=16540)

Ошибка. E202. Помогите!

Читал журнал про Мидлет взял примерчик про Менюшку в виде билетов. Так вот, скопировал код и убрал лишнее, чтоб код поменьше был.
Код:

Код:

program Test;

var bilet1, bilet2 : integer;

show, clicked, exit : command;

begin

showMenu('Select a bilet', CH_IMPLICIT);

bilet1 := menuAppendString('Билет 1');

bilet2 := menuAppendString('Билет 2');



show := createCommand('Показать', CM_SCREEN, 1);

addCommand(show);

repeat

delay(100);

clicked := getClickedCommand;

until clicked = show;



if menuGetSelectedIndex = bilet1 then

begin

showTextBox('Билет 1', 'Выбран Билет 1', 2000, TF_ANY);

end;

if menuGetSelectedIndex = bilet2 then

begin

showTextBox('Билет 2', 'Ты выбрал Билет 2', 2000, TF_ANY);

end;



exit := createCommand('Выход', CM_SCREEN, 1);

addCommand(exit);

repeat

delay(100);

clicked := getClickedCommand;

until clicked = exit;

end.

При компеляции выдаёт ошибки две штуки:

Код:

Target Info

  MIDlet Type: Classic MIDlet

  Real Numbers: Fixed-point

Compiling 'test.mpsrc'...

[Pascal Error] test.mpsrc(3): E202 identifier (name) expected

[Pascal Error] test.mpsrc(25): E203 keyword 'end' expected, '' found

ERROR: an error occurred compiling Test.mpsrc

Чё там не так? Я понять не могу!
Использую MIDletPascal 3.4 Final и MIDletPascal 3.5 Beta
На двух версиях проверял, НЕ РАБОТАЕТ!

Ответ: Ошибка. E202. Помогите!

Проблема в версии MP. В 2.0.2 все компилируется. Возможно, поможет смена имени переменной exit на что-то другое (видимо идет коллизия с паскалевским оператором exit).

Ответ: Ошибка. E202. Помогите!

Цитата:

Сообщение от ViNT (Сообщение 223745)

Спасибо большое!!!! Действительно, поменял переменную на ex и откомпилировал. Нужно бы паскалевские операторы под рукой иметь, чтоб больше не попадать так!