Читал журнал про Мидлет взял примерчик про Менюшку в виде билетов. Так вот, скопировал код и убрал лишнее, чтоб код поменьше был.
Код:
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
На двух версиях проверял,
НЕ РАБОТАЕТ!