forum.boolean.name - Не работает исходничок

Цитата:

Сообщение от d.Van

дальше первого экрана почему то не проходит :(

Незнаю вот твой код!

Код:

program bol;

uses

 mail, wol;

 

var

 whoonline, Mail: integer;//пункты главного меню

 go, exit, clicked: command; 



begin

repeat



 showMenu('Beta-On-Mobile', CH_IMPLICIT);

 

 //Команды меню

 whoonline:=menuAppendString('Кто он-лайн?');

 Mail:=menuAppendString('Внутренняя почта');

 //Кнопки

 go:=createCommand('Выбор', CM_OK , 1);

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

 addCommand(go);

 //addCommand(exit);

 repeat 

  delay(100);  

  clicked := getClickedCommand;  

 until clicked = go;  

 

 if menuGetSelectedIndex = whoonline then ShowWhoOnLine; 

 if menuGetSelectedIndex = mail then ShowMail;



 RemoveCommand(go);

 //RemoveCommand(exit);



until false; 

end.

У меня стоит Midlet Pascal 2.02 Все прекрасно компилится и работает! Проверял на MidpX эмуляторе!
Траблы у тебя поставь нормальный эмулятор или версию более новую паскаля!

З.Ы.
Скачать можна тут:
http://midletpascal.com/downloads.php - версию 2.02
http://home.kimo.com.tw/kwyshell/ - тута в разделе download скачай норм эмулятор Java ;)

А вообще немного поправить нуна!

Код:

program bol;

uses

 mail, wol;

 

var

 whoonline, Mail: integer;

 go, clicked: command; 



begin

repeat



 showMenu('Beta-On-Mobile', CH_IMPLICIT);

 whoonline:=menuAppendString('Кто он-лайн?');

 Mail:=menuAppendString('Внутренняя почта');

 go:=createCommand('Выбор', CM_OK , 1);

 addCommand(go);

 repeat 

  delay(100);  

  clicked := getClickedCommand;  

 until clicked = go;  

 

 {!!} ShowCanvas;

 

 if menuGetSelectedIndex = whoonline then ShowWhoOnLine; 

 if menuGetSelectedIndex = mail then ShowMail;



 RemoveCommand(go);



until false; 

end.

ПРосто ты не указываеш что делать дальше! так как ShowWhoOnLine и ShowMail не созданы вот они и не грузятся! Создай их перед вызовом и все будет работать...