1.у меня мидлет норм компилится , но при запуске выскакивает окошко
NHAL MIDP-Information
Unable to load class user
2.это ошибка появилась пока писал процедуру
procedure startclave; //getstringwidth(name) getstringheight(name)
var a,b:boolean; //Запоминает коды левой и правой софт клавиш и записывает их в хранилище
index,index1,key: integer;
skr,skl:integer; //код левой и правой софт клавиш
name: string;
begin
clrscr;
name:='Далее';
Drawtext('Нажмите левую',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40);
drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40+getstringheight(name));
drawline(127,1,127,100);
drawtext(name,3,getheight-getstringheight(name));
repaint;
repeat
key:=getkeypressed;
b:=(key=ke_none);
delay(100);
until (not b);
skl:=key;
clrscr;
Drawtext('Нажмите правую',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40);
drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40+getstringheight(name));
drawtext(name,getwidth-getstringwidth(name),getheight-getstringheight(name));
repaint;
repeat
key:=getkeypressed;
b:=(key=ke_none);
delay(100);
until (not b);
skr:=key;
{
rs := openRecordStore('names');
index := addRecordStoreEntry(rs, integertostring(skr));
index1 := addRecordStoreEntry(rs, integertostring(skr));
closeRecordStore(rs); }
drawtext(integertostring(skl)+' '+integertostring(skr),20,20);
{
rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs); }
clrscr;
repaint;
end;
запоминания кодов левой и правой софт клавиш (как вариант - один раз узнать и пользователя и записать в хранку) . так как либа lib_scodes от сюда определяет только модель моего телефона . при запросе getlefotsoftkeycode и getrightsoftkeycode мидлет компилится, но на телефоне подает